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Amazing Games 

For Your 

COMMODORE 128 



EDUCATIONAL GAMES 

Hangman 8 

Home-computer version of the popular word game. 

Dr. Sigmund 11 

Visit the famous analyst for ink-blot testing. Get professional advice. 

Spatial Concepts 15 

A castle where objects can be placed In a variety of positions. For young children. 

Mind Reader 19 

Can you guess the number the computer has in mind? Can the computer guess the one you have in mind? 

Poetry 22 

Wouldn't you know it? Your computer is a poet! 

No Free Lunch 24 

Cross a hazardous tide pool to reach your lunch by giving correct math answers. 

Spelling Bee 26 

Watch the bumble bee spell out a scrambled word. Give the correct spelling to win. 

Speed Reading 28 

Learn computerized reading skills tor rapid information intake. Gain speed as your skill level improves. 

Pre-School Counter , 31 

Computer displays 1 to 10 symbols and asks "How many?" Child receives a happy or sad face for correct or 
incorrect answers. 

Keyboard Shooting Gallery 33 

Try your hand at the computer shooting gallery. Learn the keyboard at the same time. 

Translator 36 

Computer has foreign words and English equivalents for user's study of foreign language. 



BOARD GAMES 

Shell Game 38 

Computer version of the classic sleight-of-hand game. 

Pirates 41 

Find and battle the scourge of the sea. You're the captain looking for adventure, glory and stolen gold. 

Master Code 46 

Computer selects a code. You crack it 

A Day At The Races 48 

Bet on a dog race. Watch the race and find out if you're a winner. 

Lost Dutchman Mine 53 

You're looking for the mine's treasure. Find clues while escaping from ghosts. 



Biorhythm 56 

Computer calculates and predicts your emotional, mental and physical levels for any date. 

Queen Of The Nile 60 

Search tor Cleopatra's lost treasure, but be careful of snake pits and mummies. 

Thin Ice 64 

Go ice fishing late in the season, but watch out for thin ice. 

Bomb Squad 68 

Locate and diffuse a bomb hidden in a huge skyscraper. 

Utopia 72 

You're an island ruler beset with decisions. Will they hep or hinder your reign? 

Tic-Tac-Toe 77 

For two players. 

Dice Race 80 

Use computer dice to race your cars across the finish line. 

Alien 83 

Your chance to visit Earth. Will you come as friend or foe? 



ARCADE GAMES 

Shoot The Rapids 87 

Stay on course in your kayak while traveling down a dangerous set of rapids. 

Night Sky 90 

Invaders from outer space, coming fast and straight at you! Stop them before they crash into you. 

Space Maneuvers 94 

Fly your spacecraft through crowded space traffic. Avoid collisions to score. 

Missile Defense 96 

Defend your cities against missile attack by intercepting oncoming missiles. 

Wall Bangers 100 

Trap your opponent (the computer) by building walls on the screen that limit the computer's cursor motion. 

Rear Gunner 102 

You're defending the rear of an intergalactlc starfighter under attack from alien educators. Type fast and accurately 
to survive. 

LeMans 105 

Drive your race car through a twisting track. Avoid debris and guardrails. 

Moon Lander 108 

Land your spaceship on the moon's surface by controlling thrust, speed and other factors. 

Gambler 111 

Play the odds with the computer's one-armed bandit. 

Orion 114 

You control Orion's missiles. Use them to defend your cities against attacking drones. 

Berserkotron 117 

You've gone to Interview for a job as a computer-game tester but entered the Robot Room where visitors are not 
allowed. Run away if you can. 
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This book stresses one thing — your Commodore 128 computer can give you great fun! Even though 
you may use it for serious applications, you should not ignore its ability to give you hours of challenging 
entertainment. Computer games add that dimension to home-computing. 

ABOUT THE 35 GAMES IN THIS BOOK 

Some game books give you short programs and tell you to add scoring, graphics and other interesting 
things. This book is different. It consists of 35 complete games. They have color, graphics, sound, 
musical interludes, split screens, instructions to players, and scoring. They feature the full capabilities of 
the Commodore 128 used in the 128 mode. 

In addition to the program listing, each game has suggestions for possible programming variations. 
First enter the complete, working game. Try it as is. Then change it if you want to. 

This book doesn't explain the rudiments of BASIC programming because I assume that you already 
have reference books to do that. What the book does supply is a variety of fun game programs that 
work. 

The games are divided into three categories: Educational, Board and Arcade games. The first category 
includes word and number fun for children and older computer users. The second includes puzzle and 
logic games you could play on a board, such as Tic-Tac-Toe. The third category, arcade games, has 
moving graphics, like video games that cost money to play. 

How To Use — Each game begins with a description of game rules, number of players, display, 
objective, scoring and keys to press. Don't skip this section. Read it carefully. 

Then enter the program listing into your computer exactly as shown. The information on pages 6 and 7 
tells you how. The listing is a reproduction of actual printout from tested, debugged, working programs. 
Because it is 40 characters wide, it looks like your display when it is in the 40-column mode, as it 
should be for 34 of the 35 games. 

When you make typing mistakes — and you will — the game may not work as intended. Or, it may not 
work at all. You'll have to find your mistakes and fix them. 

Play the game for a while. If you like it, save it on disk. Otherwise, you'll have to type in the game 
each time you want to play it. 

Between Games — Before starting another game, either by typing one in or loading it from disk, you 
should clear the computer. This way, there will be no "residual" effects of the previous game. The 
simplest way to reset the computer is to depress the RUN/STOP and RESTORE keys at the same time. 

A more "drastic" method is to depress the Reset button on the right side of the computer. This second 
way is similar to turning the computer off and then on. 

How to Change a Game — After you've become familiar with a game, consider changing or improving 
it. Use the comments to the side of the computer printout as suggestions on how you can simplify the 
game, make it more complicated, speed it up, slow it down or supply different data. Only some of the 
possibilities are shown. Have fun experimenting! 

Although this isn't a book about programming, changing the games will help you learn more about 
programming in BASIC 7.0. If you want to learn more, get The Essential Commodore 128 User's Guide 
by Jerry Willis, also published by HPBooks. It tells you all about your computer and how you can use 
BASIC to write and control programs. 

Even if you don't know BASIC 7.0, you'll have good times with these games. If you already know 
some BASIC 7.0, all the better. This book can be a springboard to your own creative programming. 



Introduction 



WHAT YOU NEED TO USE THIS BOOK 

The games in this book are written specifically for the Commodore 128 computer in the 128 mode, 
used with a 40-column display. None of these games requires a lot of memory. Plenty of memory is left 
over for you to add your own features to any program. 

Other Items — To use the full capabilities of the Commodore 128, you need a color monitor. To display 
80 columns, you need an RGB monitor. Only one game, Translator, is written for 80-column display. 

Some arcade games should be played with a joystick. It's an inexpensive accessory that makes these 
games more enjoyable. 

What Else? — I assume that you know how to use your computer hardware and that you're familiar with 
your computer keyboard. I also assume that you're eager to have fun with your computer and to learn 
something about BASIC as painlessly as possible. 

If you think that typing an amazing game into your computer isn't painless enough, there's an easier 
way. Simply send a $30 certified check or money order (for fastest service) and your name and address 
to the address below. You'll receive a floppy disk of all 35 games in this book. 



MIKOWARE 
PO BOX 95759 
Seattle, WA 98145-2759 




For more information about programming 
and using your Commodore 128 
computer, I recommend this book. You 
can order it from the publisher, as shown 
on page 120. 
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UNDERSTANDING PROGRAM PRINTOUTS 

The program lines in this book are actual computer printouts of working games. To make 
the lines easier for you to copy, program lines are 40 characters long, the length of a program 
line when the Commodore 128 is used in the 40-column mode. 

USING THE KEY-COMBINATION TABLE 

A special notation system is used for certain keystrokes. This avoids the difficult-to-read 
characters that Commodore uses for certain keystrokes. These characters are replaced in the 
program listings by notations appearing in brackets like these { }. The table on the next page 
summarizes the notations and keystrokes they represent. 

For example, if you see {C/UP}, press the Cursor Up key. Or, if you see {RVON}, press the 
CONTROL and RVS ON keys at the same time. When you do, the screen will show the 
difficult-to-read character, not the notation used. In the case of the Cursor Up key, this is the 
letter Q in a reverse field. 

USING PROGRAMMING NOTES 

Some programs also feature Programming Notes in the margin. These notes will help you 
figure out the number of times to depress the spacebar to produce a blank area in a PRINT 
statement. Other notes will help you create graphic characters shown in the program lines. 

Or, you can use your computer to figure out the keystrokes required to produce these 
characters. On the front face of most keys you'll see two graphic characters. To put the one 
on the right in a program line, depress the SHIFT key and that particular key at the same time. 
To get the character on the left, depress the COMMODORE key and that key at the same 
time. 

Programming Notes for graphic characters use this type of notation: SHIFT-M or 
COMMODORE- + , for example. 

PRACTICE 

Reading and understanding these two pages before you try entering any of these games will 
prevent lots of frustration and mistakes. That's why I strongly urge you to practice some of 
these keystrokes right now! 

Using your Commodore 128 in the direct mode, type in the keystrokes shown in the table on 
the opposite page. You will see the resultant symbols and learn the location of important keys. 

In addition, familiarize yourself with the different graphic characters you can get using the 
COMMODORE or SHIFT key pressed at the same time as other keys. 
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KEY-COMBINATION TABLE 



Listing 


Press Key(s) 


{INS} 


SHIFT-INST/DEL 


{DEL} 


INST/DEL 


{C/UP} 


CURSOR UP 


{C/DN} 


CURSOR DOWN 


{C/LF} 


CURSOR LEFT 


{C/RT} 


CURSOR RIGHT 


{HOME} 


CLR/HOME 


{CLR} 


SHIFT-CLR/HOME 


{RVON} 


CONTROL-RVS ON 


{RVOF} 


CONTROL-RVS OFF 


{BLK} 


CONTROL-BLK 


{WHT} 


CONTROL-WHT 


{RED} 


CONTROL-RED 


{CYAN} 


CONTROL-CYN 


{PURP} 


CONTROL-PUR 


{GRN} 


CONTROL-GRN 


{BLUE} 


CONTROL-BLU 


{YELO} 


CONTROL-YEL 


{ORNG} 


COMMODORE-1 


{BRN} 


COMMODORE-2 


{LRED} 


COMMODORE-3 


{GRY1} 


COMMODORE-4 


{GRY2} 


COMMODORE-5 


{LGRN} 


COMMODORE-6 


{LBLU} 


COMMODORE-7 


{GRY3} 


COMMODORE-8 
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Hangman 



Alteration — For a "bare bones" version of the 
game, leave out program lines that create 
musical effects. These are lines 30-130 and 
430. Be sure to keep other lines numbered as 
shown so GOSUB and GOTO statements 
remain correct. 



Sharpen your word skills by playing this classic game with your computer. The computer will think of a 
word. You guess it, letter by letter. A correct letter will be inserted into the appropriate space. Each wrong letter 
adds to the hangman. You are allowed 12 wrong guesses before being hung. When the hangman is complete, 
the whole word is displayed. The computer gives you 10 words. Your score is based on the length of correctly 
identified words and the number of missed letters. 

A special feature is the alphabet display at the top of the screen. Each time a letter is chosen, it is highlighted 
and frozen so you can't use it again. 
Fans of cowboy music will recognize the musical theme as The Streets of Laredo. 

10 REM HANGMAN 

20 SCNCLR 

30 LET X=0 

40 LET X=X+1:IF X<2 THEN GOSUB 60 

50 GOTO 140 

60 TEMPO 12 

70 PLAY "V104T5U8X0":REM V1=GUITAR 

80 A*="V104QC.QC03I*BQA*B04QC03*B.QAIGQF 

?QCQC 
90 B*="V103HFIFIFQGQAQ*BQAQGQFQGQRQC 
100 C*="V1Q4.QC03I*BQAQ*B04QC03Q*B.QAIGQ 
GQEQC " 

110 D*="V103HFIFIFQGQAQ*BQAQGF.F" 
120 PLAY A*: PLAY B*:PLAY C*:PLAY D* 
130 RETURN 

140 C0L0R0,7:C0L0R4,13:PRINTTAB(15) "{CLR 
} { WHT > { R VON } HANGMAN " 

150 PRINT" {C/DN>THE COMPUTER WILL THINK 
OF 10 WORDS" 
160 PR I NT "AND YOU WILL TRY TO GUESS THEM 

BY":PRINT"GUESSING ALL THEIR LETTERS." 
170 PRINT" {C/DNJTWELVE WRONG GUESSES BUI 
LD THE HANGMAN." 

180 PRINT"THE ALPHABET WILL APPEAR AT TH 
E TOP OF" 

190 PRINT"THE SCREEN TO REMIND YOU WHAT 
YOU HAVE": PRINT" ALREADY PICKED." 
200 PRINT" CC/DN>HIT ANY KEY TO CONTINUE. 
" : GETKEYQ* 

210 DIMW$(SO> , A(26) ,2 (80) : Z (0)=80 
220 F0RX=1T080:READW*(X):NEXT 
230 F0RX=1 T080 : 2 ( X ) =X : NEXT : F0RX=0T09 
240 R=INT(RND<i)*ZCO)+l> :W(X)=2(R) 
250 2(R)=Z(Z(0)):2(0)=Z(0)-l:NEXT 
260 F0RPL=0T09:G0SUB680 
270 CHAR1, 1,20, "WORD #"+STR$(PL+l) 
280 F0RX=1T0 LEN(W*(W(PL) ) ) 
290 CHAR1,10+2*X,20,"-":NEXT 
300 CHAR1,1,22,"PICK A LETTER BY HITTING 

THE KEY" 




Hangman 



Programming Note — The blank part of line 
330 is equal to 32 spaces. 



Alteration — A simple vocabulary of 
commonly used English words is in DATA 
statements 510 to 660. Depending on the 
average length of the words, your Commodore 
128 can store several thousand words. If you 
want to enter more than the 80 words in this 
program, you must make space for them in 
memory. Do this by increasing the value of DIM 
W$ in line 210 and also the value of Z in line 
210 to equal the number of words in the list. 

Alteration — Design the word list for a certain 
user. For example, make a list of foreign words 
for the person learning a foreign language. Or, 
make a list of simpler words for a child learning 
how to spell. 



310 GETKEYQ*: IFQ*< ,, A"OR<3*>"Z"THEN3iO 
320 L=ASC<Q*)-64:IFA<L)THEN310 
330 CHARi,l,22," 

H 

340 a(l)=1:char1,6+l,1,q*,1 

350 p=instr(w*(w(pl) ) ,q*) : ifp=othene=e+i 

:goto40o 

360 f0rx=1t0len(w*<w(pl))) 

370 ifmid* < w* ( w < pl) ) , x, 1 ) =q*thenchar1 , 10 

+2*X,20,Q*:CL=CL+1 

380 NEXT: IFCL<LEN <W*<W (PL) ) ) THEN300 
390 CHAR1 ,1,21, "***SUCCESS*#*» : CW=CW+1 : G 
0T0440 

400 ON E G0SUB720,790,850,870,900,920,94 
0, 960,980, 1010, 1040, 1070 
410 IFE<12THEN300 

420 CHAR1, 1,21, "SORRY, THE WORD WAS "+W* 
(W<PL>) 
430 GOSUB 60 

440 CHAR1, 1,22, "HIT ANY KEY FOR NEXT WOR 
D» 

450 getkeyq*:scnclr:e=o:cl=o 

460 F0RX=1T026: A (X) =0: NEXT: NEXTPL 

470 GRAPHICO: PRINT" {CLR>QUT OF TEN WORDS 

, YOU GUESSED "CW: PRINT "OF THEM CORRECTLY 

II 

■ 

480 PRINT" {C/DN>PLAY AGAIN (Y/N)?" 

490 GETKEYQ*: IFQ*="Y"THENRUN:ELSEIFQ*<>" 

N"THEN490 

500 END 

510 DATA THE, AND, THAT, FOR, WITH 

520 DATA WAS, HIS, NOT, BUT, HAVE 

530 DATA YOU, WHICH, ARE, HER, HAD 

540 DATA FROM, THIS, THEY, THEIR, SHE 

550 DATA HAS, WERE, BEEN, HIM, ONE 

560 DATA SO, WILL, THERE, WHO, WHEN 

570 DATA WHAT, YOUR, MORE, WOULD, THEM 

580 DATA SOME, THAN, MAY, UPON, ITS 

590 DATA OUT, INTO, OUR, THESE, MAN 

600 DATA LIKE, SHALL, GREAT, NOW, SUCH 

610 DATA SHOULD, OTHER, ONLY, ANY, THEN 

620 DATA ABOUT, THOSE, CAN, MADE, WELL 

630 DATA OLD, MUST, SAID, TIME, EVEN 

640 DATA NEW, COULD, VERY, MUCH, OWN 

650 DATA MOST, MIGHT, FIRST, AFTER, YET 

660 DATA TWO, END, EASY, FLY, BEGIN 

670 REM SET UP SCREEN 

680 GRAPHIC! , 1 : COLORO, 7: C0L0R1 ,2: C0L0R4, 

13 

690 F0RX=65T090 : CHAR1 , X-58 , 1 , CHR* ( X ) : NEX 

T 

MORE-* 
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700 RETURN 

710 REM GALLOWS 

720 B0X1, 149,27, 187,32,0,1 

730 B0X1, 187,32, 182,142,0,1 

740 F0RX=0T010STEP5 

750 B0X1 , 122-X, 142+X, 192+X, 147+X,0, 1 

760 NEXT 

770 DRAW1, 151,32 TO 151, 37: RETURN 

780 REM HEAD 

790 CIRCLE1, 152,47, 15, 10 

800 CIRCLE1,152,48,2,2:B0X1, 149,52, 155,5 

4 

810 PAINT1, 145,47 

820 CHAR1,18,5,"~",1 

830 RETURN 

840 REM NECK 

850 B0X1 , 150, 57, 154, 62, 0, 1 : RETURN 

860 REM BODY 

870 CIRCLE1, 152,35, 10,23: PAINT1, 152,85 

880 RETURN 

890 REM R ARM 

900 B0X1 , 141 , 65, 137, 94, 20, 1 : RETURN 

910 REM L ARM 

920 B0X1, 163,65, 167,94,340,1: RETURN 

930 REM R LEG 

940 B0X1 , 145, 97, 140, 132, 10, 1 : RETURN 

950 REM L LEG 

960 B0X1 , 159, 97, 163, 132, 350, 1 : RETURN 

970 REM R HAND 

980 CIRCLE1 , 133, 98, 3, 3: PAINT1 , 133, 98 

990 RETURN 

1000 REM L HAND 

1010 CIRCLE1,171,98,3,3:PAINT1,171,98 

1020 RETURN 

1030 REM R FOOT 

1040 CIRCLE1, 137, 136,4,4."PAINT1, 137, 136 

1050 RETURN 

1060 REM L FOOT 

1070 CIRCLE1,167,136,4,4:PAINT1,167,136 

1080 RETURN 
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Dr. Sigmund 



Find out more about yourself by having the great psychiatrist Dr. Sigmund analyze you. Once on the 
couch, you are shown computer-generated ink blots. You enter your first impression about what you see and get 
instantly analyzed in the classic fashion. You get 14 analyses per visit. There are no scores and no losers. This is 
a great game for a party. 

A special feature of this program is the split screen. The computer uses the top portion of die screen to draw 
ink blots and the bottom portion to display text. 

10 REM DR. SIGMUND 

20 SCNCLR 

30 TEMPO 8 

40 PLAY "V104T5U8X0 B :REM V1=GUITAR 

50 PLAY "V204T5U8X0":REM V2=GUITAR 

60 A*="V105SES#D" 

70 B*=»V105SES#DSES#DSE04SB05SD04SC" 

80 C*= H V104. IAV202SA03SEV104IRV203SA04SC 

SESRV104SA" 

90 D*=»V104. IBV201SC03SES#G. IRV104SES#GS 

B" 

1 00 E*= " V 1 05Q A V202SA03SESA04E V 1 05SES#D " 

110 F*= H V104WAV2Q2WA H 

120 PLAY A*: PLAY B*:PLAY C*: PLAY D* 

130 PLAY e*:play b*:play c*: play d* 

MORE-* 
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Alteration — Change the number of questions, 
variable S, in line 300 to a number other than 
14. 



140 PLAY F* 

150 C0L0R4,12:C0L0R0,16:D*="{CLR><C/DNH 

C/DNHC/DNHC/DNMC/DNXC/DNKC/DNKC/DN 

MC/DNXC/DNXC/DNMC/DNHC/DNXC/DNKC/ 

DNKC/DNKC/DNKC/DNMC/DNKC/DNXC/DNJ" 

:DIMRX(22),RY<22) 

160 PRINT" {CLRX RED) HELLO, I AM SANDY, A 

SSISTANT TO":PRINT"DR. SIGMUND. " 

170 INPUT" IS THIS YOUR FIRST VISIT"; A* 

180 IFLEFT*(A*,1)="N"THEN310 

190 INPUT" {C/DN> WHAT IS YOUR NAME" 5 B* 

200 PRINT" {C/DN>Y0U ARE IN LUCK, "B*",": 

PRINT"DR. SIGMUND WILL SEE YOU N0W.":SLE 

EP3 

210 PRINT" {CLRJPLEASE, MAKE YOURSELF COM 

FORTABLE ON" :PRINT"THE COUCH." 

220 PRINT" <C/DN>I SEE THAT YOU ARE A LIT 

TLE BIT":PRINT"NERVOUS, "B*". "; 

230 PR I NT "TRY TO RELAX. H : SLEEPS 

240 PRINT"<C/DNJI HAVE SOME PRETTY PICTU 

RES TO SHOW YOU." 

250 PRINT"JUST LET YOUR MIND GO TO REST. 

LOOK AT" 
260 PR I NT "THE PICTURES AND PICK FROM THE 

LIST" 
270 PRINT"WHAT THEY REMIND YOU OF. IF YO 
U THINK" 

280 PR I NT "OF SOMETHING ELSE, JUST ENTER 
THAT. ":S=0: SLEEPS 
290 SLEEPS: REM RORSHACK TEST 
300 S=S+l:IFS=14THEN910 
310 GRAPHIC2,l:C0LORl,7 

320 DRAW1,159,0T0159,199T0160,199T0160,0 
330 DRAW1,0,159T0319,159 
340 DRAW1,0,0T0319,0 

350 f0rx=1t020:rx<x)=int<rndu)*320):nex 

t:rx<0)=o 

360 f0rx=1t022:ry(x)=int(rnd<1)*160) :nex 

T:RY(0)=80 

370 F0RX=20T022:RX(X)=INT(RND( 1)*75) +75: 

NEXT 

380 PRINTD*"OK, HERE IS A PICTURE..." 

390 F0RX=1T010 

400 DRAW1,RX(X-1),RY(X-1)T0RX(X),RY<X) 

410 DRAW1 , 319-RX (X-l ) , RY (X-l ) T0319-RX (X) 

,RY(X> 

420 NEXT:F0RX=10T012 

A=RND(1)*130 

XR=RND ( 1 ) *100 : YR=RND ( 1 ) #1 00 



430 
440 
450 
460 
A, 5 



CIRCLE1,RX(X),RY(X),XR,YR,,,A,5 
CIRCLE1,319-RX(X),RY(X),XR,YR,,,360- 
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Dr. Sigmund 



Alteration — Change any word and its 
corresponding interpretation. For example, 
change SPIDER in lines 500 and 340 to a 
friend's name and change the comment in lines 
690 and 700 to a special comment regarding 
your friend. 



470 NEXT:F0RX=13T022 

480 PAINT1,RX<X),RY(X> 

490 PAINT1,319-RX(X),RY(X):NEXT 

500 PRINTD*" SPIDER MOTHER CAT 

BUTTERFLY" 
510 PRINT" SNAKE CAMEL ROPE R 
EINDEER" 

520 PRINT" FATHER FACE FOOD I 
NK BLOT" 

530 o*= inputo*:printd*; 

540 IF0*="SPIDER»THEN690 

550 IF0*="M0THER"THEN710 

560 IF0*="CAT"THEN730 

570 IF0*="SNAKE"THEN750 

580 I F0*=" BUTTERFLY "THEN770 

590 IF0*="R0PE"THEN790 

600 IF0*="REINDEER"THEN810 

610' IF0*="F00D"THENS30 

620 I F0*=" FATHER "THEN840 

630 IF0*="INK BL0T"THEN850 

640 IF0*="FACE"THEN870 

650 IF0*="CAMEL»THEN890 

660 PRINT"TELL ME ABOUT YOUR CHILDHOOD." 

:INPUTP* 

670 PRINTD*j:INPUT"GO ON. . . " }P*: PRINTD*; 

:INPUT"HMMM...TELL ME MORE.";P* 

680 PRINTD*"THAT IS ENOUGH FOR NOW. CALL 

ME TOMORROW ABOUT THIS. " :G0T0290 
690 PRINT "OBVIOUSLY YOU FEEL ENTANGLED. 
THE" 

700 PR I NT "SPIDER IS A SYMBOL OF YOUR FEA 
R OF": PR I NT "FRUSTRATION. ":G0T0290 
710 PRINT"YOUR DEEP FEELINGS FOR YOUR MO 
THER ARE" 
720 PRINT "ONLY NATURAL. DO NOT BE AFRAID 

TO LET":PRINT"THEM SHOW. " :G0T0290 
730 PRINT "SOMEWHERE IN YOUR SUB-CONSCIOU 

s you»:print"Have a fear of cats..." 

740 PRINT"YOU STARTLE WHEN ONE CROSSES Y 

OUR PATH":PRINT"AT NIGHT. ":G0T0290 

750 PR I NT "BEWARE THE SNAKE. YOU NEED TO 

CONTROL" 

760 PRINT"YOURSELF IN TENSE SITUATIONS." 

: G0T0290 

770 PR I NT "THE BUTTERFLY SYMBOLIZES YOUR 

FREE" 

780 PRINT"SPIRIT AND GREAT INNER JOY. LE 

T": PR I NT "YOURSELF HAVE FUN. " :G0T0290 

790 PRINT»THE ROPE IS A SIGN OF THE STRO 

NG SUPPORT" 

MORE-> 
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300 PRINT"Y0U OFFER YOUR FRIENDS. YOU HA 

VE GREAT": PRINT" INNER RESERVES. » :G0T0290 

810 PRINT"YOU ARE BLESSED WITH A CHILDLI 

KE LOVE" 

820 PR I NT "FOR NATURE. YOUR HEART IS PURE 

. " : G0T0290 

830 PRINT"EITHER YOU ARE HUNGRY OR YOU D 

ESIRE TO»:PRINT"FEED OTHERS. ":G0T0290 

840 PRINT "YOUR FEELINGS FOR YOUR FATHER 

MUST": PR I NT "SOMEDAY BE EXPLORED. " :G0T029 



850 PR I NT "YOU ARE A REALIST. UNFORTUNATE 

LY, YOU" 

860 PRINT"ARE WITHOUT IMAGINATION. ■': GOTO 

290 

870 PRINT"YOU ARE LIKE A NEWBORN CHILD! 

YOU ARE" 

880 PRINT"ATTRACTED TO FACES. YOU SEEK A 

CCEPTANCE AND LOVE. " :G0T0290 

890 PR I NT "ONE HUMP OR TWO?" :PRINT"SERIOU 

SLY, YOU ARE ALONE IN A SPIRITUAL" 

900 PR I NT "DESERT. YOU CAN PREPARE TO REE 

NTER THE " : PR I NT " WORLD . " : G0T0290 

910 GRAPHICO: PRINT" CCLR>THANK YOU FOR CO 

MING." 

920 PRINT" I WILL SEE YOU AGAIN NEXT WEEK 

. ":PR I NT "PLEASE LEAVE $50 ON THE TV." 
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Spatial Concepts 



This fun program is enjoyed by young children. It combines the fun of picture-making with learning the 
concepts of up, down, left, right and in. 

The child chooses from a list of objects: bird, child, duck and star. Then the child chooses where to place the 
object in the colorful castle and landscape displayed on the screen. The object can also be erased. 

The child should play along with an older person — especially if the child can't read. Together they can create 
pictures and a story too! This game also features an adaptation of Carcassi's famous Waltz in C. 

10 REM SPATIAL CON. 

20 SCIMCLR 

30 TEMPO 16: REM WALTZ IN C BY CARCASSI 

40 PLAY "V104T5U8X0":REM V1=GUITAR 

50 PLAY "V204T5U8X0":REM V2=6UITAR 

60 PLAY M V304T5USX0":REM V3=6UITAR 

70 A*="V103QG02.HC V204IRIEICIE V103QG" 

MORE-* 
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80 B*="V103.HG V204IRIEICIE V103QG" 

90 C*="V103.HD V204IRIFIBIF V103Q6" 

100 D*="V102.HG V204IRIFIBIF V103QG" 

110 E*="V103.HC V204IRIEICIE V103QG" 

120 F*="V102.HA V204IRIEICIE V103QA" 

130 G*="V103.HD V204IRI#FICI#F V103QA" 

140 H*="V102HGV204H6V303HB" 

150 PLAY A*: PLAY B*: PLAY C*: PLAY D* 

160 PLAY E*: PLAY F*: PLAY G*: PLAY H* 

170 D*="{HOMEKC/DNKC/DNKC/DNKC/DNKC 

/DNMC/DNKC/DNKC/DNHC/DNKC/DNHC/DN} 

fC/DNKC/DNKC/DNKC/DNXC/DNHC/DNKC/D 

NMC/DNKC/DN}" :R*="<C/RTXC/RTMC/RT>{C 

/RTHC/RTXC/RTXC/RTXC/RTMC/RTXC/RT} 

<C/RT}{C/RTMC/RTKC/RTMC/RTKC/RTMC/R 

THC/RTKC/RTKC/RTKC/RTXC/RTKC/RTKC 

/RT>{C/RTMC/RT>{C/RTXC/RTKC/RT>{C/RT> 

{C/RT>» 

130 L*<1)=RIGHT*(D*,17)+LEFT*<R*,11) 

190 L*<2)=D*+LEFT*(R*,29) 

200 L*<3)="{H0ME}{C/DN>"+LEFT*(R*, 16) 

210 L*<4)=LEFT*(D*, 13) + "<C/RTKC/RT>" 

220 L*<5)=LEFT*(D*,13)+R* 

230 PRINT "<CLR> "TAB ( 12) "{RVONJ SPATIAL CO 

NCEPTS" 

240 PRINT" CC/DNHC/DNJWE ARE ABOUT TO PL 

AY A GAME TO LEARN THE"; 

250 PR I NT "WORDS: UP, DOWN, LEFT, RIGHT, 

AND IN." 

260 PRINT" {C/DN>YOU WILL SEE A CASTLE WI 

TH THOSE WORDS": PRINT "AROUND IT." 

270 PRINT" CC/DN>EACH WORD IS AT A PLACE 

NEAR THE CASTLE" 

280 PR I NT "THAT SHOWS WHAT IT MEANS." 

290 PRINT" {C/DN> AT THE BOTTOM OF THE SCR 

EEN YOU WILL" 

300 PRINT "SEE THE NAMES OF THINGS TO PAI 

NT WITH." 

310 PRINT"YOU CAN USE THESE THINGS TO FI 

NISH THE": PR I NT "CASTLE PICTURE." 

320 PRINT" <C/DN> PRESS ANY KEY TO CONTINU 

E.":GETKEYQ* 

330 PRINT" CCLR>I WILL ASK WHAT THING YOU 

WANT TO ADD TO"; 
340 PRINT"THE PICTURE AND YOU MUST TYPE 
ITS NAME." 

350 PRINT "THEN I WILL ASK YOU WHERE YOU 
WANT TO" 

360 pr i nt "put the thing: up, down, left, 
right,»:print"OR in." 
370 print"{c/dn>{c/dn>ok, let us begin.. 
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Alteration — Change the castle design by 
altering statements in lines 460 to 630. If you 
are really adventurous, try replacing these lines 
with your own lines, using DRAW and PAINT 
statements to build a castle. 

Programming Note — To help you with the 
number of times to press the spacebar in some 
program lines, here is a helpful summary. 
Where you see more than one large block of 
spaces, the number of spaces in each block is 
given, separated by a comma: 

One 460 1, 1,3, 1, 1 

Line 470 7 

Line 480 5 

Line 490 5 

Line 500 2, 1, 2 

Line 510 2, 1, 1, 2, 2, 1, 2, 2, 2, 1, 2 

Line 520 4, 2, 5, 3, 3 

Line 530 3, 3, 5, 3, 1, 1, 1 

Line 540 15 

Line 550 18 

Line 560 10 

Line 570 18 

Line 580 6, 9 

Line 590 6, 9 

Line 600 6, 9 

Line 610 5, 3 

Line 620 5, 3 

Line 630 5 

Line 670 20 

Line 750 5, 5, 5 



Programming Note — Make the first graphic 
character in lines 610 and 620 by typing 
COMMODORE-D. Make the second one by 
typing COMMODORE-C. 



380 PRINT" {C/DN}PRESS ANY KEY TO START." 

:getkeyq* 

390 f0rx=1t05:readt*<x> :next 

400 data bird, child, dog, star, erase 

410 forx=itos:readw*<X):next 

420 data in, down, up, left, right 

430 print" {grnkclrmc/dnhc/dnhc/dn}" 

440 f0rx=1624t02023:p0kex, 160: next 

450 C0L0R0,2:C0L0R4,7 

460 PRINTTAB<14)"{GRY2>CRV0N> {RVOF} {RV 

ON> {RVOF} {RVON} {RVOF}" 



{RVOF}" 
{RVOF}" 
{RVOF}" 
{BLK} {GRY2> { 

<RVOF> {RVON} {R 
{RVOF} {RVO 

{RVON} 



470 PR I NTT AB ( 1 4 ) " < R VON > 

480 PR I NTT AB < 1 5 ) " { R VON > 

490 PRINTTAB(15>»{RV0N> 

500 PRINTTAB(15)"{RV0N} 

RVOF>" 

510 PRINTTAB(9)"{RV0N} 

VOF} {RVON} {BLK} {GRY2} 

N} {RVOF} {RVON} {RVOF}" 

520 PRINTTAB(9)"{RV0N} {RVOF} 

{RVOF} {RVON} {RVOF}" 
530 PRINTTAB(9)"{RV0N} {RVOF} {RVON} 

{RVOF} {RVON} {BLK} {GRY2} {RVOF} 

n 

540 PRINTTAB(9)"{RV0NJ {BLK} {6RY2} 

{RVOF}" 

550 PRINTTAB(9)"{RV0N} { 

RVOF}" 

560 PR I NTT AB( 9)" {RVON} {BLK} {G 

RY2} {BLK} {GRY2} {RVOF}" 

570 PRINTTAB(9)»{RV0N} { 

RVOF}" 

580 PRINTTAB(8)»{RV0N}{BLUE} {GRY2} {WH 

T> {GRY2} {BLUE} {GRY2MRV0 

F}" 

590 PR I NTT AB( 7)" {RVON} {BLUE} {GRY2} {W 

HT} {GRY2} {BLUE} {RVOF}" 

600 PRINTTAB(6)"{RV0N}{BLUE} {GRY2} { 

WHT} {GRY2} {BLUE} {RVOF} 

» 

610 PR I NTT AB (7) "{RVON} {BLUE} {GRY2}i 

■{BLUE} " 

620 PRINTTAB(8)"{RV0N}{BLUE} {GRY2}i 

"{BLUE} " 

630 PRINTTAB(20)"{RV0N} {RVOF}{C/DN} 

{C/DN}» 

640 PRINT" {BLK}{C/RT}{C/RT}{C/RT}{C/RT}{ 

C/RT}BIRD CHILD DOG STAR ERASE{HOME} 
■i 

650 PRINTL*( 1 ) J " {RVON} {BLK} IN{ RVOF} " : PRI 
NTL$(2) ; "{ RVON JDOWN{ HOME}" 

MORE-> 
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Programming Note — Make the graphic 
characters in line 780 by typing SHIFT-W, 
SHIFT-N, COMMODORE- + , SHIFT-M. 



Programming Note — Make the graphic 
characters in line 800 by typing 
COMMODORE-N, COMMODORE-U, 

COMMODORE-J. 



660 PRINTL*<3> J " {RVON}UP{RVOF}" :PRINTL*( 

4) 5 "{RV0N}LEFT{RV0F}":PRINTL*<5> 5 "<RVON> 

RI6HT{RV0F>" 

670 SP*="{HOME} 

680 INPUT" {HOME} CBLrOPAINT WITH" ;P*:PRIN 

TSP* 

690 N=0 : F0RX= 1 T05 : 1 FP*=T* ( X ) THENN=X 

700 NEXT:IFN=0THEN680 

710 INPUT" {HOME>PAINT WHERE" } W*:PRINTSP* 

720 N=0 : FORX= 1 T05 : 1 F W*=W* < X ) THENN=X 

730 NEXT:IFN=0THEN710 

740 C*="{WHT>":IFW*="DOWN"THENC*="{GRN}" 

750 PRINTL*<N);C*"{RVON} {C/DNKC/LF 

HC/LFKC/LFMC/LFMC/LF} {C/DNKC/L 

FHC/LFHC/LFHC/LFHC/LF} {HOME}" 

760 C*="{RV0N}{GRN}":lFW*O"D0WN"THENC*= 

"{BLK}" 

770 IFP*="STAR"THENPRINTL*(N) } "{C/DNKBL 

KHC/RT}*" 

780 IFP*="CHILD"THENPRINTL*(N) ;C*; "{C/RT 

}0{C/DN}{C/LF}{C/LF}/$8\{C/DN}{C/LF}{C/LF 

}H" 

790 IFP*="BIRD"THENPRINTL*(N)fC*5" ){C/D 

N}{C/LF}{C/LF}=f»>{C/DN}{C/LF}{C/LF})» 

800 IFP*="D06"THENPRINTL*(N) 5C*J "{C/DN} 

/{C/DN}{C/LF}{C/LF}{C/LF} n " 
810 IFP*="ERASE"THENPRINTL*(N) ; "{RVON}{B 
LK}{C/DN}";W*(X) 
820 G0T0680 
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Mind Reader 

Here's a fun guessing game in which you and the computer take turns guessing numbers. The program 
begins with an animated man (you can see his lips move) asking for the user's name. The name is used 
throughout the game. 

The user has five chances to guess a number between 1 and 20. The computer man helps by giving higher and 
lower clues . The user then chooses either to think of a number or let the computer man think of a number. The 
user enters a number between 1 and 5, and the computer man has one chance to guess the number. After this 
process is repeated five times, the computer man reports the score. 



Alteration — Try adding some music by add- 
ing lines before line 10. Create your own music 
or borrow lines from another game. 



Alteration — Changing the number 20 in line 
130 will change the range of guessed numbers. 
Also change the 20 in line 160 to agree with the 
change in line 130. 



10 G0SUB550:REM mind reader 
20 PRINT" {CLR>":F0RX=1T016: print: next 
30 PRINTCHR*(2?)"T":REM SET SCREEN TOP 
40 DIM W*<81),G*<5> 

50 f0rx=0t081 : readw* ( x ) : next 

60 f0rx= 1 t05 : re adg* < x ) : next 

70 a=0 : b=3 : 60sub380 : i nputn* 

80 print"<clr}"n*", " : a=4:b=11:g0sub390 

90 sleep3: a=12: b=1s: g0sub380: print 

100 a=19:b=25:g0sub390:sleep3 

110 a=26:b=32:g0sub380: print 

120 a=33:b=39:g0sub390:sleep3 

130 c=o:forg=ito5:k=o:m=int(RND(1)*20)+i 

1 40 A=9 : B=l : G0SUB380 : G0SUB420 : K=K+ 1 
150 A=l 1 : B=l 1 : G0SUB390: INPUT" ( 1 -20) " ; Q* 

MORE-* 
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190 IFM=NTHENW*<4 

: E=49 : G0SUB380 : c=c+ l : GOT02; 

200 IFK<5THEN140 

210 W*(54)=MID*(STR*(M>,2> 

220 A=50:B=54:G0SUB380 

230 SLEEP3:NEXTG 

240 W*(55)=N*:W*<58)=MID*<STR*<100*C/5>, 

2 ) : A=55 : B=60 : G0SUB380 : SLEEP3 

250 A=6i : B=61 : G0SUB380 : A=27: B=39: G0SUB39 

0:SLEEP3 

260 C=0:F0RG=1T05 

270 W* ( 64 ) =G* ( G ) : A=62 : B=67 : G0SUB380 

280 INPUTS*: IFQ*< ,, 1"0RQ*>"5"THEN280:ELSE 

N=VAL<Q*> 

290 M=INT(RND<1)*5)+1:SLEEP1 

300 IFM=NTHENA=68: B=71 : G0SUB380: C=C+1 : GO 

T0320 

310 A=72:B=74:G0SUB380 

320 SLEEP2:NEXTG 

330 SLEEP2 : A=75 : B=79 : W* ( 77 ) =M I D* < STR* ( C# 

20),2):G0SUB380 

340 FORT=1T01000: NEXTT: A=80: B=81 : G0SUB38 



INPUTN* 

i fleft* < n*, 1 > = " y " thenclr : g0t040 
graphico:scnclr:end 

DDTMTII m D\» 



Alteration— Control the rate of "talking" by 
adjusting the range of T in line 400. Greater 
than 100 slows it; less than 100 speeds it up. 



350 INPUTN* 

360 I FLEFT* (N*, l) = u, » 

370 graphico:scnclr:_ 
380 print" <clr>" 

* OA F0RX=AT0B:G0SuB440:PRINTW*OO M "! 
F0RT=1T0100: NEXT: G0SUB450 
F0RT= 1 TO 1 00 : NEXT : NEXT : RETURN 
G0SUB440:PRINTG*(G) " "J :fort=itoioo: 

r 



o/u unnrnitivii 

380 PRINT" <CLF 

390 forx=atob: 

400 F0RT=lT010w. ., & « , . w««w„-rww 

410 F0RT=1 TO 100: NEXT: NEXT: RETURN 

420 G0SUB440:PRINTG*(G>" ";:F0RT=1T0100 

NEXT 

430 G0SUB450:F0RT=1T0100: NEXT: RETURN 

440 SPRITE 1,1,1: RETURN: REM MOUTH OPEN 

450 SPRITE 1,0: RETURN: REM CLOSED 

460 D ATAHELLO , MHO , ARE , YOU , YOU , ARE , ABOUT , 

TO , PLAY , GUESS , THE , NUMBER . 

470 DATAFIRST, I, WILL, THINK, OF, FIVE, NUMBE 

RS, AND, YOU, WILL, TRY, TO, GUESS, THEM. 

Aan TkATAl ATCD VDI I 1.1 T I I TUTMI/ »C BTI1I 



HfV UHIHr1J.l3HtK,L;UWtK, ItlHI , 15,Klttr1l ! , 

00K,Y0U, , TRIES. 

500 DAT AT 00, BAD., IT, WAS, , , YOU, GOT, 

RCENT, CORRECT. , NOW 

510 DATAENTER,THE, , NUMBER, FROM, 1 - 5. ,M 

Y, GENIUS, OVERCOMES, ME. , I , WAS, WRONG. 

520 DATA I, GOT, , PERCENT, CORRECT, PLAY, AG 

AIN Y/N 
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Alteration — Change the man's features (make 
him a woman?) by experimenting with the 
graphic commands in lines 540-910. 



530 DATAFIRST, SECOND, THIRD, FOURTH, FIFTH 

540 REM DRAW MAN 

550 COLORO ,16: C0L0R4 , 6 1 GRAPH I C4 , 1 , 1 6 

560 COLOR 1, 1: COLORS, 1 

570 COLOR 2,7:C0L0R3,13 

580 CIRCLE1,15,15,2,2:PAINT1,15,15 

590 SSHAPE A*, 10, 11,21,31 

600 SPRSAV A*, l:MOVSPRl, 134,98 

610 SCNCLR:CIRCLE1,60,40,12,20 

620 CIRCLE 1,66,37,3:CIRCLE 1,53,37,3 

630 CIRCLE 2, 66, 37,1: CIRCLE 2,53,37,1 

640 CIRCLE1 , 60, 13, 10,40, 165, 195,0, 1 

650 DRAW1,59,52 TO 61,52 

660 PAINT 2, 66, 37:PAINT 2,53,37 

670 DRAW 1,65,23 TO 60,30 TO 50,30 TO 47 

,35 

680 PAINT 1,60,22 

690 DRAW 1,58,40 TO 62,44 TO 62,46 TO 61 

,46 

700 DRAW 1,60,47 TO 59,47 TO 58,46 

710 CIRCLE 1,47,38,2,5,170,15 

720 CIRCLE 1,72,38,2,5,340,190 

730 DRAW 1,68,54 TO 71,60 

740 DRAW 1,49,54 TO 46,60 

750 DRAW 2,57,61 TO 61,61 TO 65,65 T062, 

68 TO 67,79 TO 60,90 

760 DRAW 2,60,90 TO 52,80 TO 57,67 T055, 

66 TO 57,61 

770 PAINT 2,60,80 

780 DRAW 3,71,60 TO 76,60 TO 76,90 TO 73 

,90 TO 72,76 

790 DRAW 3,72,76 TO 71,90 TO 60,90 T067, 

79 TO 62,68 TO 65,65 TO 71,60 

800 PAINT 3,75,70 

810 DRAW 3,60,90 TO 52,80 TO 57,67 TO 55 

,66 TO 46,60 TO 37,60 

820 DRAW 3,37,60 TO 37,90 TO 40,90 TO 40 

,75 TO 44,90 TO 60,90 

830 PAINT 3, 48, 70: DRAW 1,38,91 TO 38,92 

840 DRAW 1,75,91 TO 75,92 

850 DRAW 1,44,91 TO 70,91 TO 70,120 TO 6 

1,120 TO 61,110 TO 59,110 

860 DRAW 1, 59,110 TO 57,110 TO 57,120 T 

44,120 TO 44, 91: PAINT 1,46,93 

870 DRAW 2,47,121 TO 48,121 TO 48,125 TO 

55,125 TO 58,130 
880 DRAW 2,58,130 TO 47,130 TO 47,121 
890 PAINT 2,48,128 
900 DRAW 2,62,121 TO 63,121 TO 63,125 TO 

70,125 TO 73,130 TO 62,130 TO 62,121 
910 PAINT 2, 63, 128: RETURN 
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Poetry 



The program creates haiku, an ancient form of Japanese poetry. The traditional form calls for three lines of 
five, seven and five syllables. The poems usually refer to seasonal changes and moods. Therefore, the phrases 
selected randomly by the program contain related vocabulary. The program can write some very nice haiku. 
The music was written in the traditional Japanese style of Koto. Music plays to introduce the game and 
repeats each time a haiku is created. 

10 REM POETRY 

20 SCNCLR 

30 LET X=0 

40 LET X=X+1:IF X<2 THEN GOSUB 60 

50 GOTO 130 

60 TEMPO 12 

70 PLAY »V104T4U8X0":REM V1=FLUTE 

80 A$="V103 HAHAWB HAQBQAHB QAQFWE" 

90 B*="V103 QEQAQAHB QAQFQE 02QCWB03R" 

100 PLAY A*: PLAY B* 

110 RETURN 
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Alteration — Change the second number in the 
COLOR statements of line 130 to change the 
color of the background (COLOR 0) and the 
border (COLOR 4). Use values from 1 to 16. 



Alteration — Eliminate the music before each 
haiku by changing line 290 to 290 PRINT. This 
drops the music subroutine and inserts a blank 
line. 



Alteration — Change the phrases used to form 
the haiku by changing the DATA statements in 
lines 330-420. Be sure to give each new phrase 
the same number of syllables as the phrase it 
replaces. 



120 REM "POETRY" 

130 C0L0R0,2:C0L0R4,4 

140 forx=oto9:readf*(X) :next:forx=oto7:r 

eads*(x):nextx 

1 50 f0rx=0t07 : re adt* ( x ) : nextx 

160 print" <clr> " : printtab ( 17) " <rv0n> {gry 

1>p0etry{rv0f>" 

170 print" cc/dnhc/dn>hello honorable us 

ER." 

PRINT" <C/DN>I AN MIKO, A JAPANESE HA 

PROGRAM. " 

PRINT" {C/DN>PRESS ANY KEY AND I WILL 

PLEASED TO WRITE A POEM FOR YOU. " 

PRINT" {C/DNJHAIKU IS AN ANCIENT FORM 

POETRY. " 

PRINT" IT IS AN HONOR TO WRITE FOR YO 



180 
IKU 
190 

BE 
200 

OF 
210 
U." 
220 
230 
240 



PRINT"<C/DN>HIT ANY KEY TO START." 

GETKEYQ* 

A=INT(RND(8)*10) :B=INT<RND(8)*8> :C=I 
NT<RND(6>*8> 

250 PRINT" {CLRKC/DNKC/DNHC/DNKC/DNH 
C/DN}<C/DNKC/DNHC/DN>" 
260 PRINTTAB<20-LEN(F*(A))/2)5F*(A) 
270 PRINTTAB <20-LEN(S*(B)>/2) JS*(B) 
280 PRINTTAB(20-LEN<T*<C))/2);T*<C) 
290 GOSUB 60 

300 PRINT"<C/DNKC/DNXC/DN> HIT <RVO 
N>R{RVOF> KEY TO RECEIVE A NEW POEM." 
310 GETKEYQ* 

320 IFQ*="R"THEN240:ELSEPRINT"{C/DN>G00D 
BYE.": END 

330 DATATHE GRAY MOUNTAINS HOST, TODAY I 
SAW THE, SPLASHES IN THE POND 
340 DATANOW CHERRY BLOSSOMS, DROPPING FRO 
M BRANCHES, FRESHLY DRAWN CHALK LINES 
350 DATAWINTER HILLSIDES HOST, NOW RED-FA 
CED CHILDREN, A MOONLIT QUIET 
360 DATAA GARDEN CHANGES, MOMENTARY FLASH 
ES OF, SQUIRREL GATHERING ACORNS 
370 DATADISTURB THE REFLECTION OF, SWIRL 
IN THE TWILIGHT COOLNESS 

380 DATARED LEAVES PROVIDE RAKE FODDER, R 
EFLECT IMAGINATION 

390 DATATHE LAUGHTER AND SNOWY PLAY, CATC 
H RAYS OF BROKEN MOONLIGHT 
400 DATATHE SUMMER LIGHTNING, WINTER IS C 
OMING,A MOONLIT QUIET, A GARDEN CHANGES 
410 DATAFUEL FOR CHILDREN'S PLAY, OF SUMM 
ER CHILDREN, OF RED-FACED CHILDREN 
420 D AT ASPL ASHES IN THE POND 
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No Free Lunch 



Put on your thinking cap for this arithmetic game. You're out to lunch along the ocean and have to hop 
rocks across hazardous tidepools to reach your food. A correct answer to the arithmetic problem gets you to the 
next rock, closer to your lunch. With three correct answers in a row, you can eat. But watch out! A wrong 
answer gets you all wet. 



Alteration — Try drawing an airplane or some 
seagulls in the sky in lines 30-60. 



Programming Tip — The ESC-M sequence 
CHR$(27) " M " in line 70 prevents the screen 
from scrolling after printing on the last line. 



Programming Note — To help you with the 
number of times to press the spacebar in some 
program lines, here is a helpful summary. 
Where you see more than one large block of 
spaces, the number of spaces in each block is 
given, separated by a comma: 

Line 90 1,3,4, 1,6,3,4,2 

Line 100 1, 3, 3, 2, 5, 4, 3, 3, 3, 3, 4, 6 

Line 110 1, 4, 2, 2, 4, 5, 3, 3, 3, 4, 2, 7 

Line 120 1, 4, 2, 2, 4, 5, 3, 3, 3, 4, 2, 7 

Line 130 40 

Line 140 13 

Line 160 2, 3 



Alteration — To practice multiplication 
instead of addition, change the addition signs 
(+) in lines 190-210 to asterisks (*). 



10 REM NO FREE LUNCH 

20 C0L0R0,15:C0L0R4,7:C0L0R2,8:C0L0R3,16 

30 GRAPHIC4,1,8:CIRCLE2,30,32,20,26:PAIN 

T2,30,30 

40 CIRCLE3,80,40,60,5:PAINT3,80,40 

50 CIRCLE3,120,30,55,10:PAINT3,120,30 

60 CIRCLE3,0,20,30,5:PAINT3,0,20 

70 WIND0W0,8,39,23:PRINTCHR*(27)"M":D*=" 

CHOMEKC/DNHC/DNHC/DNKC/DNKC/DNHC/D 

NHC/DN> B :CL*= ,, {H0MEHC/DN> ,, +CHR*<27) + "Q 

H 

80 PRINTTAB(34) "{C/DNKC/DNKC/DNKC/DN} 

(C/DNHC/DN}<C/DNXC/DNHRV0NHGRY1>LUNC 

H" 

90 PRINT" {RVONKLBLU} {GRY1} <LBLU> 

<GRY1> {LBLU> {GRY1} {LBLUJ { 
GRY1> {LBLU} <GRY1> {LBLU} {GRY1 
} {LBLU} "; 
100 PRINT" {RVON} {BLUE} <GRY1> {BLUE} 

{GRY1} {BLUE} {GRYi} {BLUE} { 
GRY1> {BLUE} {GRYI} {BLUE} {GRY 
1} {BLUE}"; 
110 PRINT" {RVONHBLUE} {GRY1} {BLUE} 

{GRY1} {BLUE} {GRY1} {BLUE} { 
GRY1} {BLUE} {6RY1} {BLUE} {GRY1 
} {BLUE}"; 

120 PRINT" {RVON} {GRYi} {BLUE} {GRY1} 
{BLUE} {GRY1} {BLUE} {GRY1} 
{BLUE} {GRY1} {BLUE} CGRY1} 
{BLUE}"; 
130 PRINT" {RVONKGRY1} 



"* 



{RVONKBLK} 



140 PRINT" {LBLU} 

NO FREE LUNCH {RVOFH HOME}" 

150 U*= B {C/RT}{WHT}0{C/DNHC/LF}{C/LF}/{ 

RVON} {RVOF}\" 

160 E*=" {C/DNMC/LFKC/LF} {C/DN}{C/ 

LF}{C/LF} " 

170 P=0: PRINTD*i TAB <P) J U*5 " {C/DN} {C/LF} { 

C/LF}H"5 :PRINT"{HOME}" 

180 A=INT <RND ( 1 ) *9+l ) : B=INT <RND ( 1 ) *9+l ) 

190 PRINTCL*"H0W MUCH IS"A"+"BJ : INPUTC 

200 IFA+B=CTHEN270 
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Programming Tip — This program uses 
split-screen graphics. You can draw things in 
multicolor graphics on the top part of the 
screen. 



210 printcl*" sorry, the answer is"a+b 
220 printd*;tab<p> ?e*:p=p+3:printd*;tab< 
p)5"<c/dnkc/dn>"u* 

230 SOUNDi , 30000, 400, 1 , 20000, 10, 3 

240 PRINTCL*" {RV0N> {BLUE} SPLASH!!! 
ii 

250 V=15:D0WHILEV>.l:V=V-.l:VQL V:L00P 
260 SLEEP3:G0T0310 

270 printcl*" {yelokrvon> correct! " 

280 sleepi:printd*;tab<P) je*:p=p+7: print 

d*?tab(p);u*»{c/dn}{c/lf}{c/lf}h" 

290 ifpo5then180 

300 printcl*" {yel0> yum! yum! eat well!!! 

ii 

310 PRINT" {C/DNKC/DN>TRY AGAIN (Y/N)?" 

320 GETKEYQ*:IFQ*= H Y"THENPRINT"<CLR>":GO 

T080:ELSEIFQ*O B N"THEN320 

330 PRINTCHR*(27) °L{H0ME>{H0ME}»: GRAPHIC 

0,1: END 
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Spelling Bee 



Alteration — Change the number following T 
in line 60 to a value from 1 to 9 to change the 
instrument that plays music. For example, 
60 PLAY "V104T9U8X0": REM V1 = 
XYLOPHONE 



Here's an educational game of great versatility, providing entertainment and instruction. The program 
features a bee that moves across the screen to the sound of an adapted Flight of the Bumblebee. As the bee 
moves, it leaves behind it a scrambled word. The object is to unscramble the word and enter the correct spelling. 

10 REM SPELLING BEE 

20 SCNCLR 

30 X=0:LET X=X+l:IF X<2 THEN GOSUB 50 

40 GOTO 190 

50 TEMPO 18 

60 PLAY "V104T7U8X0":REM V1=0RGAN 

70 A*="V105SES#DSDS#CSCSDS#CSC04SB" 

SO B*= "VI 05SC04SBS*BSDS#GSGS8FSF " 

90 C*="V104SES#DSDS#CSDS*CSC03SB" 

100 D*="V104SC03SBS#ASAS#GSGS#FSF" 

110 E*="V103SES#DSDS#CSDS#CSC02SB" 

1 20 F*= " VI 03SES#DSDS#CSCSFSSES#D " 

130 G*="V103SES#DSDS#CSCS#CSDS#D" 

140 H*="V102B" 

150 play a*: play b*:play c*:play d* 
160 play e*:play e*:play f*:play g$ 
170 play f$:play g*:play e*:play h* 

180 RETURN 

190 W=30:DIMW*(W),Z(W):X=RND<0) 

200 C0L0R4, 7 :COLORO,l: PRINT "<CLR}{ CYAN K 

C/DN}" 

210 PRINT "WELCOME TO SPELLING BEE." 

220 PRINT" <C/DN>YOU WILL SEE THE BEE FLY 

ACROSS THE" 
230 PRINT"SCREEN, LEAVING LETTERS AS IT 
GOES. " 

240 PRINT" *C/DN>THESE LETTERS ARE THE LE 
TTERS OF A" 

250 PR I NT "SCRAMBLED WORD. YOU MUST UNSCR 
AMBLE THE" 

260 PRINT "WORD AND ENTER THE CORRECT SPE 
LLING TO»:PRINT"RECEIVE POINTS." 
270 PRINT" {C/DNKC/DN>GOOD LUCK... HIT A 
NY KEY TO CONTINUE. ":GETKEYQ* 
280 G0SUB670 

290 f0rx=1t0w:readw*(x):next 
300 forx=itow:z(X)=x:next 

310 Z=W:F0RX=0T09 

320 R=INT(RNDU)*Z+1):S(X)=Z(R) 

330 Z(R)=Z(Z):Z=Z-l:NEXT 

340 F0RX=0T09 

350 PRINT»<CLR>W0RD"X+1, "SCORE ="SC 

360 L=LEN(W*(S(X) ) ) : IFL>10THENPRINTW*(S( 

X))"IS TOO LONG OF A WORD.":END 

370 F0RY=1T0L:Z(Y)=Y:NEXT 
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Alteration — Change the number of words in 
the game by adding more words in DATA state- 
ments between lines 650 and 660. Be sure to 
increase the value of W in line 190 to reflect the 
new total number of words in the vocabulary. 



Alteration — Make the bumblebee appear 
smaller and in higher resolution by leaving off 
the last two l's in line 820, i.e., 820 
SCNCLR:SPRITE 1,0,8,0 

For fun, try these other versions of line 820: 
820 SCNCLR:SPRITE 1,0,8,0,0,1 
820 SCNCLR:SPRITE 1,0,8,0,1,0 
820 SCNCLR:SPRITE 1,0,7,0 



380 z=l:fory=itol 

390 R=INT(RND<1)*Z+1):L<Y)=Z<R> 
400 Z(R)=Z<Z):Z=Z-l:NEXT 
410 60SUB 50 

420 SPRITE1,1:M0VSPR1,90 #2 
430 F0RY=1T0L 

440 DOUNTILRSPPOSU,0> >50+24*Y:LQ0P 
450 CHAR1,4+3*Y,11,MID*<W*(S<X)>,L<Y>,1> 
460 NEXT 

470 I FRSPPOS (1,0) >320THENSPR I TE 1 , : MO VSP 
R1,0,117:ELSE470 

430 INPUT" {HOMEXC/DNKC/DNKC/DNMC/DN> 
ENTER CORRECT SPELLING" ?C*: PRINT 
490 1 FC*=W* ( S ( X ) ) THENPR I NTTAB ( 1 3 ) " { RVON > 
THAT IS CORRECT! " :SC=SC+125: 60T0510 
500 PRINTTAB(10)°{RV0N}S0RRY, IT WAS "W* 
( S (X) ) " " 
510 SLEEP2:NEXTX 
520 PRINT" {CLRMC/DN}" 

530 IFSO900THENPRINT"Y0U WIN THE SPELLI 
NG BEE ! " : G0T0570 

540 IFSO800THENPRINT" VERY WELL DONB.'TG 
0T0570 

550 IFSO700THENPRINT"N0T BAD. »:G0T0570 
560 PRINT»Y0U NEED PRACTICE." 
570 PRINT"PLAY AGAIN (Y/N)?» 
580 GETKEYQ*:IFQ$= ,, Y"THEN300 
590 IFQ*O"N"THEN580:ELSEEND 
600 DATA THAT, THEIR, HOUSE, BOAT, PEACE 
610 DATA DRAGON, ORANGE, GAME, LOVE, HOPE 
620 DATA WHEN, FLY, BEGIN, COMPUTER, BOOK 
630 DATA YELLOW, HORSE, CHILD, FATHER, PEN 
640 DATA PLANT, PICTURE, LIGHT, RUG, HELP 
650 DATA SPELL, CUP, PENCIL, SHOE, SHIRT 
660 REM BEE 

670 C0L0R1,4:GRAPHIC1,1 
680 BOXO, 1,2,2,45,45 

690 DRAW 1,11,19T025,11 T025,26 T011,19 
700 DRAW 1,13,17 T013,20 
710 DRAW 1,17,15 TO 17,22 
720 DRAW 1,21,13 TO 21,24 
730 DRAW 1,25,26 TO 31,22 TO 25,22 
740 CIRCLE1,29,14,6:PAINT1,14,18 
750 PAINT 1,21,22:DRAW1,27,13 
760 DRAW1,31,13:DRAW1,29,17 TO 32,17 
770 DRAW 1,34,13 TO 33,18 
780 DRAW1,24,7 TO 27,10 
790 DRAW1,34,7 TO 31,10 
800 CIRCLE 1,20,14,3 

310 SSHAPE A*,11,7,34,28:SPR3AV'.A*, 1 
820 SCNCLR:SPRITE1, 0,8, 0,1,1 
830 M0VSPR1,0, 1 17: GRAPH I CO, l: RETURN 
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Speed Reading 



A fundamental principle of speed reading is that we retain more if we read words in phrases, rather than 
one at a time. This program helps develop that skill. It flashes phrases quickly then tests retention of the 
information with true/false questions. 

Two players are needed. When prompted by the computer, player 1 types in five statements and five related 
true/false questions along with the answer. Then player 2 decides on the time duration he'll see each phrase. 
Time can be as short as 1 second. After the phrases are flashed, player 2 is tested with the questions. Score is 
based on correct answers and the time the player had to read questions. 

Then the players change roles and player 2 does the speed-reading test. 

10 REM SPEED READING 
20 Q=5:DIMP*(2,Q),Q*<2,Q),A*(2,Q) 
30 C0L0R0,7:C0L0R1,2:C0L0R4,13 
40 PRINT" {CLRXWHT} "TAB (14) "<RVON}SPEED 
READING" 

50 PRINT" {C/DNJ WELCOME TO THE GAME OF SP 
EED AND" 

60 PRINT"CONCENTRATION." 

70 PRINT" <C/DN> YOU MUST BE ABLE TO GRASP 
WHOLE" 
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Speed Reading 



Alteration — Change the game into an 
arithmetic flashcard game. Enter math pro- 
blems and answers instead of sentences. 
Change appropriate PRINT statements if you do 
this. 



Alteration — Change the game into a transla- 
tion exercise. Use foreign and English equiv- 
alents instead of sentences. Change appropriate 
PRINT statements if you do this. 



Alteration — If you prefer to run this game in 
die 80-column mode (assuming you have a 
monitor that can do it) alter the PRINT state- 
ments of lines 350 and 390 to say (80 
CHARACTERS) instead of (40 CHARACT- 
ERS). In addition, change the 40 in lines 370 
and 410 to 80. Rearrange PRINT statements in 
the program to make the game use more of the 
screen. Be sure to enter the game in the 80- 
column mode. 



80 PR I NT "PHRASES IN A MOMENT. AFTER THE 

PHRASES" 

90 PRINT"ARE DISPLAYED, THERE WILL BE QU 

EST IONS" 

100 PRINT"AB0UT THE CONTENT. CORRECT ANS 

WERS" 

110 PRINT"SCORE POINTS. " :PRINT"THE MORE 

DIFFICULT THE TIME FACTOR, THE" 

120 PRINT"MORE POINTS EARNED. ": PRINT" *C/ 

DN>0NE PLAYER ENTERS FIVE PHRASES, FIVE" 

130 PRINT "QUEST IONS, AND THE FIVE ANSWER 

S." 

140 PR I NT "THE SECOND PLAYER ENTERS THE T 

I ME" 

PRINT "FACTOR BY 



ENTERING THE NUMBER 
PHRASES 
INS 



150 

OF" 

160 PRINT "SECONDS FOR WHICH THE 

ARE": PRINT "TO BE DISPLAYED." 

170 PRINT" {C/DNJHIT ANY KEY FOR MORE 

TRUCTIONS." 

ISO GETKEYQ* 

190 PRINT »iCLR> ALL FIVE PHRASES WILL BE 

SHOWN AND THEN" 

200 PR I NT "ALL FIVE QUESTIONS WILL BE ASK 

ED." 

210 PRINT" CC/DNJTHEN THE SECOND PLAYER W 

ILL HAVE A TURN." 

220 PRINT" ALL QUESTIONS WILL BE TRUE OR 

FALSE" 

230 PR I NT "QUEST IONS. TRUE WILL BE INDICA 

TED BY A" 

240 PRINT "T AND FALSE WILL BE INDICATED 

BY AN F.» 

250 PRINT" <C/DN>HERE IS AN EXAMPLE:" 

260 PRINT" CC/DNHRVON>PHRASE:{RVOF> THIS 

IS A COMPUTER GAME." 
270 PRINT"<C/DNXRVON}QUESTION:{RVOF> T 
OR F":PRINT"THIS IS A CARD GAME." 
280 PRINT" {C/DNMRVON>ANSWER:{RVOF> F" 
290 PRINT"{C/DN>HIT ANY KEY TO START." 
300 GETKEYQ*: P=l 

310 INPUT" <CLRMC/DN}PLAYER ONE'S NAME"? 
N*<1) 

320 INPUT"{C/DN>PLAYER TWO'S NAME";N*(2) 
330 PRINT" <CLR>BEGIN NOW »N*(P)". n 
340 F0RX=1T0Q: PRINT" £C/DN>ENTER PHRASE # 
"X 

350 PRINT" {C/DN> PHRASES MAY NOT BE MORE 
THAN 1 LINE LONG" : PRINT" (40 CHARACTERS). 
tC/DN}" 

360 INPUTP*(P,X) 
370 IFLEN(P*(P,X))>40THEN350 MORE-* 
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410 
420 
430 

440 



460 
470 
480 
490 



380 PRINT" {C/DN>ENTER QUESTION #"X 

390 PRINT" <C /DIM} QUESTIONS MAY NOT BE MOR 

E THAN 1 LINE»:PRINT"LONG (40 CHARACTERS 

).{C/DN>" 

400 INPUTQ*(P,X) 

IFLEN(Q*(P,X) ) >40THEN350 

PRINT" CC/DN5ENTER ANSWER #"X 

INPUTA*(P,X) 

IFA*(P,X)<>"T"ANDA*(P,XK>»F"THENPRI 
NT "ANSWER MUST BE T OR F.":G0T0430 
450 PRINT" <CLR}":NEXTX 

K=1:IFP=1THENK=2 

PRINT"OK "N*(K)".": PRINT 

W(K)=0:S(K)=0 

PR I NT "ENTER THE NUMBER OF SECONDS EA 
CH PHRASE" 

500 INPUT"WILL BE SHOWN" ;S: IFSMOTHENPRI 
NT " TOO LONG ! " : G0T0490 

510 F0RX=1T0Q: PRINT" {CLR}{RVON>PHRASE #" 
X: PRINT" <C/DNXC/DN> "P*(P,X> 
520 TI*=" 000000" 

530 CHAR1,17,0,RIGHT*(TI*,2)+" SEC":IFVA 
L(TI*XSTHEN530 
540 PRINT"{CLR}":SLEEP2:NEXTX 
550 F0RX=1T05: PRINT" {CLR>{RVON}QUESTION 
#{RVOF>»X 

560 PRINT"{C/DNKC/DN>"Q$(P,X) 
570 INPUT" {C/DN> YOUR ANSWER" 5 A*: A*=LEFT* 
(A*,l) 

580 ifa*<>"t"anda*<>"f"thenprint"{c/dn>t 

hese are t or f questions. " :g0t0570 

590 ifa*=a*(p, x) thens (k) =s (k) +700-s: prin 

t"{c/dn>{rv0n>c0rrect":g0t0620 

600 w(k)=w(k)+l: print" {c/dn>{rv0n>inc0rr 

ect":printp*(p,x) 

sleep2:nextx 

sleep2:nextx 

ifp=1thenp=2: g0t0330 

print"{clrkc/dn>{c/dn>"n*<1> " score 
: "s ( 1 ) , 5-wu ) "correct" 
650 print"<c/dnhc/dn>"n*(2)" 
>,5-w (2) "correct" 
660 ifs<1) >s(2)thenprint"{c/dnkc/dn>"n* 

(1)" WINS!" 

670 IFS (2) >S ( 1 ) THENPRINT" CC/DNHC/DN> "N* 

(2)" WINS!" 



610 
620 
630 
640 



SCORE: "S (2 
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Pre-School Counter 



Here's a useful educational game that helps young children learn counting up to 10. It's also good for 
introducing a computer to the child. It's easy to run and play. 

The computer greets the player and then asks him to count the squares displayed. The user answers by 
entering a number. The computer then responds. If the answer is correct, the user is rewarded with a smiling 
face drawn by the computer. If the answer is incorrect, the face's smile becomes a frown. The correct answer is 
then displayed. 

After 10 exercises, the computer gives a score. 



Programming Tip — The program uses a split 
screen. GRAPHIC 2,1 in line 30 sets the 
split-screen mode and PRINT CHR$(27) •• T •• 
inline 180 sets the new top of screen at row 19. 



10 REM PRE-SCHOOL COUNTER 

20 C0L0R1,2:CQL0R0,13:C0L0R4,6 

30 GRAPHIC2, 1 : CIRCLE1 , 160, 84, 27, 5 

40 SSHAPE OP*, 130,75, 189,95 

50 SCNCLR1:CIRCLE1, 160,83,27,2 

60 SSHAPE CL*, 130,75,189,95 

70 SCNCLR1 : CIRCLE1 , 160, 8, 90, 75, 158, 202 

80 CIRCLE1, 160,44,50,45, 140,220 

90 SSHAPE SM*, 130,75,189,95 

100 SCNCLR1:CIRCLE1, 160, 159,90,75,338,38 

MORE-* 
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Alteration — The face is drawn by lines 
130-160. Add more graphic commands to give 
the face more features. Be careful to not draw 
over the area where the mouth goes. 



Alteration — Use higher numbers by changing 
line 220 to 220 SQ = INT(RND(1)*25) + 1 : etc. 

Programming Note— Make the graphic 
character in line 220 by typing SHIFT-Q. 



110 CIRCLE1 , 160, 123, 50, 45, 320,400 

120 SSHAPE FR*, 130,75, 189,95 

SCNCLR1 : CIRCLE1 , 160, 60, 50, 50 
CIRCLE1, 180,45, 10, 5: CIRCLE!, 180,45,2 



130 

140 

,2 

150 

,2 

160 

170 



CIRCLE1 , 140, 45, 10, 5: CIRCLE1 , 140, 45, 2 



CIRCLE1, 160,62,7,7 
GSHAPE CL*, 130,75 
180 PRINT" <CLR}{WHT> h :F0RX=1T018:PRINT:N 

ext:printchr*<27> »t" 
190 c=o:forq=itoio 

200 F0RX=1T03:60SUB370:READT*:PRINTT*" h 

■ 

I 

210 G0SU6330:NEXTX 

220 SQ=INT<RND(1>*10>+1:F0RY*1T0SQ:CHAR1 

,1+2*Y,16,"#":NEXT 

230 INPUTA: IFAOSQTHEN250 

240 C=C+l:PRINT M {RVON> CORRECT! !{RVOF>": 

G0SUB400: SLEEP2: G0T0270 

250 PRINT" <RV0N>INC0RRECT<RV0F>":G0SUB3 

90 : SLEEP2 : G0SUB380 

260 PRINT" THE ANSWER IS"SQ:SLEEP3 

270 G0SUB380: PRINT" <CLR> " : RESTORE: CHAR1 , 

3 16 " " " NEXTQ 

280 G0SUB370: PRINT" OUT OF TEN TRIES, ":S 

LEEP1 

290 G0SUB380 

300 G0SUB370: PRINT "YOU GOT" 

310 G0SUB380 

320 G0SUB370:PRINTC"RIGHT." 

330 G0SUB380 

340 PRINT" {C/DN>PLAY AGAIN <Y/N>?" 

350 GETKEYQ*: IFQ*=»Y"THENRUN:ELSEIFQ*<>" 

N-THEN350 

360 END 

370 GSHAPE OP*, 130, 75: RETURN 

380 GSHAPE CL*, 130, 75: RETURN 

390 GSHAPE FR*, 130, 75: RETURN 

400 GSHAPE SM*, 130, 75: RETURN 

410 OATAHOW, MANY, CIRCLES 
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Keyboard Shooting Gallery 

This game improves keyboard skills. You're at a carnival shooting gallery containing four animal targets. 
In each target a letter appears for a short time. You score points by typing letters displayed in the animals. 
The game has three levels of difficulty, so as you become a better typist, you can make the game more 
challenging. At the expert level, "hunt-and-peck" typists will have trouble scoring well. 



Alteration — To include other keyboard 
symbols (such as numbers, commas, periods, 
etc.), make these changes: 

20 DIM A$(55): GOSUB 330 

30FORX=0TO55:A$(X) = CHR$(X+35): 
NEXT 

160 FOR Y=1 TO 4: F(Y)=0: L$(Y) = AS 
(RND(1)*56) : NEXT 



10 REM KEYBOARD SH00TIN6 GALLERY 

20 DIMA*<25) :G0SUB330 

30 F0RX=0T025 : A* < X ) =CHR* ( X+65 ) : NEXTX 

40 PR I NT "{CLR}{ GRIM WELCOME TO {RV0N>KEYB 

OARD SHOOTING GALLERY {RVOFK " 

50 PRINT" {C/DN> LETTERS WILL APPEAR BELOW 

EACH ANIMAL." 
60 PRINT" YOU* WILL HAVE A SHORT TIME TO E 
NTER" 

70 PRINT "THE SAME LETTERS." 
80 PRINT" <C/DN>SIMPLY TOUCH THE CORRECT 
LETTERS TO":PRINT"GET POINTS." 
90 PRINT" {C/DJM>1> EASY" : PRINT "2 ) HARD":P 
RINT"3) EXPERT" 

MORE-* 
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Alteration — To make your own carnival 
animals, experiment with the graphic, 
commands between lines 320 and 830. Or, use 
animals from other games, for example the 
dogs from A Day At The Races. 



100 input" cc/dn>enter 1,2 or 3"jl 

110 ifl<10rl>3then90 

120 print"{clr>":forx=ito4:spritex,i:nex 

130 char1,6,7,"bee":char1,23,7,"fish" 
140 char1,6,13,"0wl":char1,23,13, "dog" 

150 T=20-L*5:X=0 

160 F0RY=lT04:F<Y>=0:L*<Y>=A*<RND<i>*26) 

:next 

170 CHAR1 , 10, 9, L*< 1 ) : CHAR1 , 28, 9, L* (2) 

CHAR1,10,15,L*(3):CHAR1,28,15,L*<4> 

1=0: C=0 

CHAR1, 14,0, "SCORE ="+STR*(S),l 

GETKEYQ* 

F0RY= 1 T04 : I FQ*=L* ( Y ) ANDF ( Y ) =0THENS=S 

+io:c=c+i:F(Y)=i 

230 IFC=4THENI=T:Y=4 
NEXTY 

1=1+1 IIFKTTHEN200 
X=X+1 : IFX< 10THEN160 
F0RX=1T04: SPRITEX, 0: NEXT 
PRINT" {CLR}"TAB( 15) "{RV0N>GAME OVER. 



180 
190 
200 
210 
220 



240 
250 
260 
270 

280 



290 PRINTTAB<16)"{RV0NKC/DNKC/DN}Y0U W 

IN." 

300 PRINTTAB<13) "{RVONHC/DNHC/DN}FINAL 

SCORE: {RVOFJ"S 
310 END 

320 REM DRAW FISH 

330 COLOR 0,2:C0L0R4,5:GRAPHIC1,1 
340 CIRCLE 1,26,19,5,6:PAINT1,26,17 
350 CIRCLE 1,25,20,5,5,210,310 
360 PAINT 1,21,19 

370 DRAW 1,22,24 TO 16,23 TO 19,29 TO 22 
,24 

380 DRAW 1,22,16 TO 19,16:DRAW 1,20,17 T 
18,17:DRAW 1,17,18 

390 PAINT 1,20,26:DRAW1,18,23 TO 24,23 
400 DRAW 0,30,22:CIRCLE0,26,17,1 
410 SSHAPE B$,U,10,34,3l:SPRSAVB$,2 
420 SCNCLR:REM DRAW DOG 
430 DRAW 1,25,11 TO 29,15 TO 33,15 
440 DRAW 1,32,15 TO 32,17 TO 31,18 TO 29 
,18 TO 28,19 

450 DRAW 1,29,20 TO 30,20:DRAW 1,26,27 
460 DRAW 1,27,18 TO 27,21 TO 26,23 TO 25 
,23 TO 25,27 

470 DRAW 1,24,27 TO 23,27 TO 23,24 T022, 
23 TO 22,21 

480 DRAW 1,21,23 TO 17,23 TO 17,24 TO 16 
,25 TO 16,27 TO 17,27 
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Alteration — To double the size of each 
animal, add ,0,1,1 to the end of each SPRITE 
command in lines 800 to 830. For example, 800 
SPRITE 4,0,7,0,1,1: etc. If you do this, you 
should also change the CHAR statements in 
lines 130, 140, 170 and 180 to center the letters 
under the enlarged sprites. For example, 130 
CHAR 1,8,7, "BEE": etc. 



490 DRAW 1,15,27 TO 14,27 TO 14,22 TO 12 

,20 TO 12,18 TO 14,16 

500 DRAW 1,15,16 TO 23,16 TO 25,11 

510 DRAW 1,12,13 TO 11,14 TO 11,16 TO 14 

,16 

520 PAINT 1,26,17:DRAW0,28,15 

530 SSHAPE C*,11,10,34,31:SPRSAV C$,1 

540 SCNCLRrREM DRAW OWL 

550 CIRCLE 1,20,19,8:PAINT1,20,19 

560 CIRCLE 0,16,17,2:CIRCLE0, 23,17,2 

570 DRAW 0,18,19 TO 22,19 TO 20,22 TO 19 

,18 

580 DRAW 1,14,24 TO 16,28 TO 24,28 TO 26 

,24 

590 DRAW 1,14,28 TO 26,28 

600 DRAW 1,14,24 TO 12, 27: DRAW 1,26,24 T 

28,27 

610 DRAW 1,14,14 TO 12,12:DRAW 1,26,14 T 

28,12 

620 SSHAPE A$,11,10,34,31:SPRSAV A*, 3 

630 SCNCLR 

640 REM BEE 

650 60X0,1,2,2,45,45 

660 DRAW l,ll,19T025,il T025,26 T011,19 

670 DRAW 1,13,17 T013,20 

680 DRAW 1,17,15 TO 17,22 

690 DRAW 1,21,13 TO 21,24 

700 DRAW 1,25,26 TO 31,22 TO 25,22 

710 CIRCLE1,29,14,6:PAINT1,14,18 

720 PAINT 1,21,22:DRAW1,27,13 

730 DRAW1,31,13.-DRAW1,29,17 TO 32,17 

740 DRAW 1,34,13 TO 33,18 

750 DRAW1,24,7 TO 27,10 

760 DRAW1,34,7 TO 31,10 

770 CIRCLE 1,20,14,3 

780 SSHAPE D$,11,7,34,28:SPRSAV D$,4 

790 GRAPHIC0,1 

800 SPRITE4,0,7:M0VSPR4,100,100 

810 SPRITE 3,0,ll:M0VSPR3,100,150 

820 SPRITE2,0,4:M0VSPR2,240,100 

830 SPRITE1,0,12:M0VSPR1,240,150 

840 RETURN 
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Translator 



This program is an educational quiz. As is, the program is set up to act as a Spanish-language translator. 
The user picks the number of questions to be asked. An English word is shown and the user is asked to type in 
the Spanish equivalent. 

Correct and incorrect answers are indicated. When the answer is incorrect, the correct word is displayed. 
When all questions have been asked, the computer displays the user's score. 

This game is written for the 80-column mode of the Commodore 128. It's easiest to enter the program into the 
computer if you first do the following: 

1) Put the computer in the 80-column mode by depressing the 40/80 Display Button, setting your monitor to 
RGB mode, and then turning on the computer. 

2) In the direct mode, type PRINT CHR$(14) and press the RETURN key. This puts the computer in the 
upper-case/lower-case mode. 

10 rem translator 
20 print chr*(14) 
30 dim e*(10),o*(10) 
f$&7f or x=ltolO: reade* ( x) , o*<x) :next 
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Alteration — Change the Spanish to any other 
language using the Latin alphabet. Change the 
vocabulary in the DATA statements of lines 
290-300. 

Alteration — Enlarge the computer's vocab- 
ulary by adding more DATA statements after 
line 300. Each English word must be followed 
by a comma and its foreign translation. You 
will also need to change lines 30 and 40 to 
accommodate the addition. For example, if you 
have 50 words, change the DIM statements in 
line 30 to dlme$ (50),o$(50). Change the max- 
imum value of x in line 40 to that same number 
of words: for x=1 to SO. It is possible to add 
several thousand words to a Commodore 128. 



50 print"{CLR>" 

60 print" Wei come to the Cybernetic schoo 

1 of computerized language." 

70 print "I am Amanda, a spelling and tra 

nslation program." 

SO print"! will assist you in learning S 

panish today. " 

90 input"CC/DN>What is your name" ; n$: pri 

nt"{CLR>" 

100 print "All right ";n*J", we shall beg 

in by discussing the rules." 

110 print"{C/DN>l) Whenever you are aske 

d -for an answer, please type one in. " 

120 print"{C/DN>2) Whenever you type a r 

esponse, you must enter it by pressing R 

ETURN. ■ 

130 print"{C/DN}3) I will tell you to gi 

ve the correct Spanish -for a word." 

140 print" Type in your answer and pre 

ss RETURN." 

150 print" When the game is over I wil 

1 say how well you did over all." 

160 input"{C/DN}How many questions shall 

I ask you";q 
170 s=0:forc=ltoq:print"{CLR}Question #" 
c 

180 x=int<rnd<i)*10)+l:print"Sive the co 
rrect Spanish for: "e*<x) "{C/DN>": inputa 
* 

190 i-fa*=o*(x)thens=s+l:print"{C/DN}Corr 
ect":goto210 

200 print"{C/DN>Incorrect.":print"The co 
rrect translation is: "o*(x> 
210 print»{C/DN)Press RETURN -for the nex 
t question." 
220 getkeyq*:i-fq*Ochr*(13)then220 

next 

print" CCLR>"n*", Out of "q" quest ions 

got"s"right: that's"; 

printint (s#100/q+.5) "percent. " 

print"{C/0N>Would you like to play a 
<y/n)?" 



230 
240 
you 
250 
260 
gain 



270 getkeyq*: if q*="y"thenrun;elseif q*<>" 

n"then270 

280 print" <C/DN>Thanks -for playing!" 

290 datato do,hacer,to talk,hablar, to pu 

t,poner,to eat, comer 

300 datadoor,puerta, mouth, boca, cow, vaca, 

fork , tenedor , spoon , cuchara, peace, paz 
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Shell Game 



In this game, the computer will place a ball under one of three boxes. Then it shuffles the boxes around the 
screen. Watch carefully because you're asked to find the box that has the ball. 

100 REM SHELL GAME 

105 C0L0R4,6:C0L0R0,16 

110 G0SUB450 

120 PRINT" {CLR> "TAB ( 15) "{RVON>SHELL GAME 

CRVOF>" 

130 f0rx=7t09:f0ry=1t03:printl*<x) js*(y) 
:nexty,x 

140 L=INT(RND(8)*3)+i 

150 PRINTL*<L)JB* 

160 PRINT"{BLKXHOMEXC/DNXC/DN>HIT ANY 

KEY TO START" 
170 GETKEYQ* 
180 PRINT"{HOMEXC/DNXC/DN> 



Alteration — This program is a treat for the 
eyes. Make it a treat for the ears by adding lines 
of music near line 170. Carnival sounds might 
work well. 

Programming Note — The blank part of line 
180 is equal to 21 spaces. 
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Programming Note — Make the graphic char- 
acter in lines 470 and 560 by typing SHIFT-Q. 



Alteration — If you are an advanced pro- 
grammer, try replacing the red boxes (lines 
530-550) with walnut shells by using DRAW 
statements and saving the shape to a string with 
the SSHAPE command. Place them on the 
screen with the GSHAPE command. 



190 F0RX=7T09:F0RY=1T03:PRINTL*<X) JE*(Y) 
:NEXTY,X 

200 f0rx=1t03:f0ry=1t03:printl*(x> ;s*(y) 

:nexty,x 

210 forx=ito3:w(X)=i:nextx:m=i 

220 f0rk=1t09 : c=0 : ifw < k ) =0then290 

230 h=int (rnd (4) *4> +1 : c=c+1 : ifc >9then290 

240 n=a(k,h):ifw(a(k,h))=1then230 

250 W(K)=0:W(A(K,H))=1 

260 f0ry=1t03:printl*(k) ;e*(y) znexty 
270 fory=ito3:printl*<a<k,H));s*(Y):next 

Y 

280 IFL=KTHENL=A(K,H> 

290 nextk:m=m+i 

300 IFM<9THEN220 

310 IFW ( 1 ) =1ANDW <2) =1 ANDW (3) =1THEN330 

320 G0T0220 

330 F0RX=1T03:PRINTL*(X) J B {RVON> ,, iSTR*<X 

) : NEXTX 

340 PRINT" <BLKHHOMEHC/DNHC/DN}OK, WHI 

CH BOX IS THE BALL UNDER?" 

350 6ETKE YQ* : I FQ*< ■ 1 " ORQ* > " 3 H THEN350 

360 Q=VAL<Q*> 

370 ifq=lthenprint"you got it!":g0t0390 
380 print" {c/dn>sorry, it was under tt"l 
390 forx=ito3:fory=ito3:printl*(X) ;e*(Y) 
:nexty,x 

400 F0RX=4T06:F0RY=1T03:PRINTL*(X> ;S*(Y) 
:NEXTY,X 

410 printl$(d;b$ 

420 print" cc/dn>play again (y/n)?» :getke 

yq*: ifq*=»y»then120 

440 END 

450 PRINT" {CLRKBLIO YOU ARE ABOUT TO PLA 

Y <RVON> SHELL G AME { R VOF > . " 

470 PRINT" I WILL PLACE A BALL (•) UNDER 

ONE OF" 

480 PRINT "THREE RED BOXES AND THEN SHUFF 

LE THE" 

490 PR I NT "BOXES AROUND." 

500 PRINT" <C/DN> WATCH CAREFULLY AND THEN 

TELL ME WHICH BOX THE BALL IS UNDER." 
510 PRINT" {C/DN>HIT ANY KEY TO CONTINUE. 



520 GETKEYQ* 
530 S*<1)="{RED>{RV0NJ 
it 



540 S*(2)="{C/DNHREDHRV0N} 
*(2)="{C/DN> " 

550 S*<3) = "{C/DNHC/DNKREDHRV0N> 
0F>":E*<3> = "{C/DNKC/DN> 

MORE 



{Rvof>":e*(1>= m 

{RVOF>":E 
{RV 
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560 B*="{BLUE}{C/DNKC/RT}«" 

570 L*U> = "{HOMEMC/DNMC/DNHC/DNKC/DN 

}{C/DNHC/DNMC/DNKC/DN>{C/DN}£C/DN}{C/ 

DNKC/DNMC/RTXC/RTKC/RTKC/RTXC/RTX 

C/RTKC/RTKC/RTHC/RTHC/RTKC/RTKC/RT 

} H 

580 L*<2>=L*(1)+"CC/RTMC/RTHC/RTXC/RT 

}<C/RTHC/RT>" 

590 L*(3>=L*<2)+ ,, <C/RTXC/RT>{C/RT>{C/RT 

HC/RTKC/RT}" 

600 L*(4)=L*<1>+"{C/BNHC/DN}{C/DNXC/DN 

}£C/DNKC/DN> H 

610 L*(5>=L*(2)+"<C/DNHC/DNKC/DNKC/DN 

KC/DNHC/DN}" 

620 L*C6>=L*<3>+"{C/DNHC/DNKC/DNKC/DN 

HC/DNHC/DN> H 

630 L*(7)=L*(i>+"{C/UP}{C/UPHC/UP}{C/UP 

KC/UPKC/UP>" 

640 L*(8)=L*(2)+"£C/UP>{C/UP}{C/UPJ{C/UP 

KC/UPHC/UP}" 

650 L.*(9)=L*<3>+»{C/UPXC/UPKC/UPKC/UP 

XC/UPKC/UP}" 

660 F0RX=1T09:F0RY=1T04:READA(X, Y) :nexty 

,x 

670 RETURN 

680 DATA2,4,7,1,1,3,5,8,2,6,9,3 
690 DATA1,4,5,4,4,2,6,5,5,3,6,6 
700 DATA1,7,8,7,7,2,9,8,8,9,3,9 
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Batten down your hatches and head for the high seas. Can you recover the gold stolen by the pirate 
Redbeard? You must search for five pirate ships hidden in the waters displayed on the screen. When you find a 
pirate ship, you can either fire on it or board it. In the ensuing battle you may lose men and cannons. 

The game ends after three minutes or after you or all five pirate ships are sunk. The galleons are the nicest 
sprites used in these 35 games. 

10 REM PIRATES 

20 G0SUB8S0 

30 PRINT" <CLRH BLUE* AHOY THERE MATEY. AN 

D WHAT WOULD BE" 

40 INPUT "YOUR NAME NOW'JN* 

50 PRINT" {C/DNJWELL, WELL, CAPTAIN "N*" 

IT IS. . - " 

60 PR INT "AND I BE CAPTAIN REDBEARD." 

70 PRINT" <C/DN>I'VE A FLEET OF 5 GALLEON 



S HIDDEN IN' 



MORE 
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Alteration — To use the numeric keypad to 
change direction, change line 300 to 300 K$ 
= ",.8624":X=RND(0). This turns on the 
numeric keypad so 8,6,2 and 4 control up, 
right, down and left respectively. 

Alteration — Change the amount of 
ammunition and men by changing the value of 
A and M in line 300. 



Alteration — Change the speed of your ship by 
changing the values of 2 in lines 390-420. 
Don't change the plus or minus signs. 



80 PR I NT "THESE WATERS. CATCH ME IF YOU C 

AN." 

90 PRINT" {C/DN} YOUR SHIP IS WHITE AND MY 

SHIPS (WHEN" 
100 PRINT" YOU FIND 'EM J ARE AS RED AS MY 

BEARD. " 
110 PRINT" CC/DN>YOUR SHIP HAS A CREW OF 
200 MEN AND 100" 

120 PRINT»CANNON ROUNDS. " :PRINT"{C/DN>HI 
T ANY KEY" 
130 GETKEYQ* 

140 PRINT" tCLRXC/DNJYOU'LL NAVIGATE WIT 
H THE CURSOR KEYS." 
150 PRINT"HIT F TO FIRE CANNONS AND B TO 

BOARD." 
160 PRINT" CC/DN} IF YOU TRY TO BOARD OR F 
IRE UPON A" 

170 PRINT"SHIP THAT'S OUT OF RANGE YOUR 
GUNNER" 

180 PRINT "WILL TELL YOU ABOUT IT. TO BOA 
RD A" 

190 PRINT"SHIP YOU MUST BE VERY CLOSE." 
200 PRINT" <C/DN>YOU HAVE 3 MINUTES TO FI 
ND MY SHIPS" 

210 PRINT"OR I'LL FIND YOU!" 
220 PRINT"<C/DN>HIT ANY KEY TO START." 
230 GETKEYQ*: PRINT" <CLR>" 
240 F0RX=0T039:CHAR1,X,0," ",1:NEXT 
250 FQRX=lT025:P0KE<RND<i)*1000+1024>,10 
2: NEXT 

260 M0VSPR1, 40,50: SPRITE1,1 
270 F0RX=2T06 

280 PX(X)=INT<RNDU>*297+24) :PY(X)=INT(R 
ND< l)*180+50> 

290 MOVSPRX,PX<X),PY<X):NEXT 
300 K*="{C/UPKC/RTHC/DNKC/LF>BF M :A=10 
0:M=200 

310 F0RX=2T06:D(X)=10:NEXT 
CHAR1,1,0,"MEN 200", 1 



320 
330 
340 
350 
360 
370 



CHAR1, 10,0," AMMO 100", 1 



CHAR1, 20,0," GOLD 000", 1 

TI*= " 000000 " : TL=300 

REM START LOOP 

CHAR1, 30,0, "TIME "+MID*(TI*,4, 1) +" : " 
+RIGHT*(TI*,2),1 

380 GETQ*:ON INSTR<K*,Q*> +1 G0T0370,390, 
400,410,420,440,530 
390 M0VSPRl,+0,-2:G0T0640 
400 M0VSPRl,+2,+0:G0T0640 
410 M0VSPRl,+0,+2:G0T0640 
420 M0VSPR1 , -2 , +0 : G0T0640 
430 REM BOARD SHIP 
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^ 



440 R=5:GQSUB720 

450 IFF=0THENM*="N0 SHIPS IN RANGE, CAPT 

AIN. ":G0SUB760:GQT0640 

460 F0RX=2T06: IFR (X ) = 1THENS0UND1 , 25000, 1 

00,0,20000,150,0 

470 IFR<X)=1THENM=M-INT(RNDU>*70> :SPRIT 

ex,o:movsprx,o,o:x=6 

430 next: ifm<=othenm*=" there were too ma 

ny.. they captured us. »:g0t0800 

490 g=g+int <rnd ( 1 ) *1 00+100) : char1 , 24, 0, s 

TR$(G)+" ",l:CHARl,4,0,STR*(M)+" M ,i 

500 P=P+l:M*="PIRATE SHIP C APTURED . ■ : GOS 

UB760 

510 G0T0640 

520 REM FIRE CANNONS 

530 R=30:G0SUB72Q 

540 IFF=0THENM*="N0 SHIPS IN RANGE, SIR. 

" : G0SUB760: G0T0640 

550 IFA<=OTHENM*= M WE'RE OUT OF AMMO, CAP 

T A I N . " : G0SUB760 : G0T0640 

560 F0RX=2T06: IFR <X> =1THENS0UND1 , 1400, 40 

,1,1200,5,3:A=A-INT(RND(1)*10> 

570 IFA<OTHENA=0 

580 IFR(X)=1THEND<X)=D(X)-INT(RND(1)*6): 

CHAR1,14,0,STR*(A)+" M , 1 

590 NEXT : F0RX=2T06 : IFD ( XX =OTHENSPR I TEX , 

0:MOVSPRX,0,0 

MORE-* 



^ 
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Alteration — Line 650 tests to see if your time 
is up. To give yourself 4 minutes to play the 
game, change the first statement to IF 
VAL(TI$)>=400 etc. 



Alteration — Lines 710-740 provide a routine 
to check the range of pirate ships. Variable R in 
lines 440, 530 and 660 does this. Change the 
values of R to change allowable ranges. 



Programming Tip — The subroutine in lines 
750-780 centers a message, variable M$, on the 
screen regardless of length. 



600 I FD(XX=0THENM*=" PIRATE SHIP SUNK!": 

D < X ) ■ 1 : P=P+ 1 : 60SUB760 

610 NEXT 

620 IFA=OTHENM*="WE COULDN'T RETURN FIRE 

...WE'RE SUNK ! H : G0T0800 

630 IFRND(1K.03THENM*=»WE'VE BEEN HIT S 

IR! SHE'S GOIN' DOWN ! " :G0T0800 

640 IFP=5THENM*="Y0U WON!! THE QUEEN SEN 

DS HER THANKS. ":G0T0800 

650 IFVAL(TI*)>=300THENM*=" TIME'S UP MAT 

EY... THE SEA IS MINE! ":G0T0800 

660 R=40:G0SUB720 

670 IFF=0THEN370 

680 F0RX=2T06:IFR(X)=1THENSPRITEX,1 

690 NEXT:G0T0370 

700 REM SUBROUTINES 

710 REM CHECK RANGE 

720 F=0:F0RX=2T06:R(X)=0 

730 I FABS < RSPPOS (1,0) -RSPPOS ( X , ) )< RTHEN 

IFABS (RSPPOS (1,1) -RSPPOS (X, 1 ))< (R*. 77) TH 

ENR(X)=l:F=l 

740 NEXT: RETURN 

750 REM PRINT MSG 

760 CHAR1 , 20. 5- (LEN (M*) /2) , 1 , M$: SLEEP2 

770 F0RX=0T038:CHAR1,X,1," ":NEXT 

780 RETURN 

790 rem end of game 

800 forx=ito6:spritex,o:next 

810 print"{clr>":charl,20.5-(len(m*)/2), 

1,M* 

820 PRINT: PRINT" {C/DNHC/DNJYOU G0T M G"60 

LD PIECES" 

830 PRINr'AND-'P-'PIRATES." 

840 PRINT"{C/DNHC/DN}<C/DN}PLAY AGAIN ( 

Y/N)?» 

850 GETKE YQ* : I FQ*= " Y " THENRUN : ELSE I FQ*<> ■ 

N"THEN850 

860 END 

REM DRAW SHIP SPRITE 

C0L0R1,2:C0L0R4,13:C0L0R0,4:GRAPHIC1 



870 
880 

,1 

890 
900 
910 
920 



B0X1,0,14,7,15 

DRAW1,2,16 TO 18,16 

DRAW1,14,15 TO 18,15 

DRAW1, 15,4T015, 14T023, 14T015,6 
930 DRAW1,16,11 TO 21,12 
940 PAINT1,17,10 

950 DRAW1,16,4T016,5T018,5T019,6 
960 DRAW1 , 18, 16T015, 19T03, 19T03, 17 
970 PAINT1,10,17 
980 DRAW1,12,2T09,1T09,0T09,15 
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990 DRAW1, 13, 14T08, 10T08,6T010,6T010, 11T 

011,11T011,7 

1000 DRAW1,7,4 TO 4,3 TO 4,13 

1010 DRAW1,7,13 TO 6,12 

1020 B0X1,3,6,5,11 

1030 SSHAPE A*, 0,0, 23, 21 

1040 F0RX=1T06:SPRSAV A*, X: NEXT 

1050 SPRITE1,0,2 

1060 F0RX=2T06:SPRITEX, 0,10: NEXT 

1070 GRAPHICO,!: RETURN 
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This short program is based on a popular board game. The computer invites you to break a secret code. 
When the four squares appear on the screen, you enter one number of code at a time. The number is between 1 
and 5. A number may be repeated. 

A correct answer is indicated by an asterisk in that square. You have four tries to break the code. You win 
when you guess all four numbers in the code. 

10 REM MASTER CODE 

20 M*="{HOMEKC/DNXC/DN>{C/DNKC/DN>":L 

$=M$+"<C/DNHC/DNKC/DN}<C/DNXC/DNXC/D 

NXC/RTXC/RTMC/RTXC/RTXC/RTXC/RTXC 

/RTKC/RTXC/RTXC/RTXC/RTXC/RTXC/RT5 

{C/RTXC/RTXC/RTXC/RTXC/RTXC/RT}" 

30 C0L0R4,6:C0L0R0,2:PRINT"{CLRXBLK>"TA 

B (14) "MASTER CODE" 

40 PRINT"{C/DNXC/DN}I AM LILY MAZET, A 

CYBERNETIC CODE" 

50 PR I NT "GENERATING PROGRAM. YOU ARE ABO 

UT TO" 

60 PRINT"ATTEMPT TO BREAK MY CODE." 

70 PRINT"{C/DN>I WILL GENERATE FOUR SQUA 

RES. EACH" 



Alteration — Change the second number in the 
COLOR statements of line 30 to change the 
color of the background (COLOR 0) and the 
border (COLOR 4). Use values from 1 to 16. 
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Alteration — Make the game more difficult by 
changing the 5 in lines 130-160 to a larger 
number. This increases the range of numbers 
that the computer can use in its code. Be sure to 
change the PRINT statement in line 80 to reflect 
the new range. 

Programming Note — Make the graphic char- 
acter in lines 180 and 190 by typing 
COMMODORE- +. 



Alteration — Make the game easier by increas- 
ing the number of guesses the user gets. For 
example, changing X in the first part of line 200 
to FOR X = 1 TO 5 etc. allows the user five tries. 
Then change the PRINT statement in line 90 to 
tell the user how many tries he gets. 



SO PRINT "SQUARE WILL REPRESENT ONE NUMBE 
R: ": PRINT" 1, 2, 3, 4, OR 5." 
90 PRINT" CC/DN}YOU WILL HAVE FOUR TRIES 
TO OBTAIN THE": PR I NT "CORRECT SEQUENCE." 
100 PRINT" {C/DN> NUMBERS MAY BE USED MORE 

THAN ONCE.": PRINT" <C/DN>HIT ANY KEY TO 
START. " 
110 GETKEYQ* 

PR INT "{CLR}" TAB (14) "MASTER CODE" 

E=INT(RND(8)*5)+1 

B=INT(RND(8)*5)+1 

C=INT(RND(8)*5)+1 

D=INT(RND(8)*5)+1 

PRINTTAB(IS) "{C/DNKC/DNJA 



120 
130 
140 
150 
160 
170 
D" 
ISO 



B 



MM <RV 



f» {RV 



PRINTTAB ( 13) "{RVON} <RVOF> 
ONH8 {RVOF> <RVON> (RVOF>" 
190 PRINTTAB (13) "{RVON} {RVOF} 
0N>I8 CRVOF} { RVON }$8§{ RVOF}" 
200 F0RX=1T04: PRINTL*" <C/UP}<C/UP}"X 
210 IFW=ETHEN240 

220 PRINTL*; :INPUT"A {C/LFXC/LFXC/L 
FHC/LF>";W 

230 IFW=ETHENPRINTM*;TAB(13) "{RV0N}**<RV 
OF) " : PRINTTAB (13) " { RVON }**{ RVOF} " 
240 IFV=BTHEN270 

250 PRINTL*?: INPUT "B <C/LFKC/LFKC/L 

FKC/LF>"iV 

260 IFV=BTHENPRINTM*JTAB(17) "CRVON>**{RV 
OF) " : PRINTTAB < 17) » {RV0N>4Hr{RV0F> ■ 
270 IFY=CTHEN300 

280 PRINTL*? :INPUT"C <C/LFHC/LFHC/L 

F}{C/LF>";Y 

290 IFY=CTHENPRINTM*JTAB(21) »{RVON>**{RV 
0F> ": PRINTTAB (21 )"<RVON>**{RVOFJ» 
300 IF2=DTHEN330 

310 PRINTL*;: INPUT "D CC/LF}{C/LF}{C/L 
FKC/LF}"?Z 

320 IFZ=DTHENPRINTM*5TAB(25) "£RVON>**{RV 
0F> " : PRINTTAB (25) " {RVON}^Hr{RVOF} " 
330 I FW=E AND V=B AND Y=C AND2=DTHEN400 
340 NEXTX 

350 PRINTCHR*(27)»@{C/DNKC/DN}"TAB(6)"Y 
OU DID NOT BREAK THE CODE. ■ 
360 PRINT"{C/DN}"TAB(8)"IT WAS: "E;B;C;D 
370 PRINT"{C/DN}"TAB(7)"HIT ANY KEY TO P 
LAY AGAIN. " 

380 PRINTTAB(13)"<ST0P> TO QUIT" 
390 GETKEYQ*: RUN 

400 PRINT" {C/DN} YOU BROKE THE CODE I 
N"X "TRIES! ! !" 
4lO G0T0370 
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A Day At The Races 



You've gone to the dogs — the dog track that is. You and the computer can choose among four dogs racing 
toward the finish line. 

The program is complete with user-friendly features such as music, an introduction, a racing program, fun 
graphics and easy restart. It works great as is, but it's also fun to personalize. 

This is a fun game for up to nine players. The computer keeps track of your wins and losses. 



Alteration — Change the names and de- 
scriptions of the dogs in lines 20 and 1090-1270 
to match the names and characteristics of dogs 
you know and love. 



10 REM A DAY AT THE RACES 

20 D*(1)= H M0LLY":D*(2)="FELICE":D*<3)="B 

AD D0G":D*<4)="BILLY" 

30 0<1)=2:0<2>=10:0<3)=4:0(4)=7 

40 P(l)=.4:P(2)=.43:P<3)=.4l:P(4)=.42 

50 C0L0R0,12:C0L0R4,12 

60 F0RX=1T09:M<X> =500: NEXT 

70 PRINT" {CLRXWHT>WELCOME TO UNCLE LOUI 

S' DOGTRACK, BEST" SPRINT "DOGTRACK IN ARI 

ZONA. " 

80 PRINT"<C/DN>I HOPE YOU'RE FEELING LUC 

KY TODAY. " 

90 PRINT" I HAVE SOME OF THE FINEST PUPS 

IN THE" 

100 PRINT"MICROCHIP WORLD JUST READY TO 

RUN THEIR": PRINT "PAWS OFF." 

110 PRINT" CC/DN> HOW MANY PLAYERS TODAY ( 

UP TO 9)? "J 

1 20 GETKE YQ* : I FS*< " 1 " ORG* > " 9 » THEN 1 20 

130 PRINTQ*: PRINT" {C/DN}GLAD TO HAVE YOU 

, YOU CAN CALL ME LOUIS. " :P=VAL (Q*) 

140 F0RX=1T0P: PRINT" {C/DN>WHAT IS PLAYER 

"X"{C/LF>'S NAME" ;:INPUTN$(X): NEXT 

150 PRINT" {C/DN1W0ULD YOU LIKE TO SEE A 

PROGRAM (Y/N)?" 

160 GETKEYQ*: IFQ*="Y"THENG0SUE1090:ELSEI 

FQ*<>"N "THEN 160 

170 PRINT" <CLR}PLACE YOUR BETS BY SELECT 

ING NUMBER. {C/DN>" 

180 F0RX=1T04:PRINTX"{C/LF>) »D*(X)5TAB< 

13)50(X)"TO 1":NEXT 

190 F0RX=1T0P: B (X) =o: next: F0RX=1T0P 

200 IFM(X><1THENPRINT»<C/DN>PLAYER"X"IS 

BROKE. ":G0T0260 

210 PRINT" {C/DN>PLAYER"X:PRINTN*(X>", "i 

220 INPUT a WHICH DOG" JS(X) : IFS(X) >40RS(X) 

<1THEN220 

230 PRINT"YOU HAVE *"M(X) ;TAB<19) i 

240 INPUT "YOUR BET"5B(X) 

250 IFB(X)>M(X)THENPRINT"SORRY YOU DO NO 

T HAVE CREDIT" :G0T0230 

260 NEXT 
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Alteration — Change the sound of the starting 
pistol by changing the values of the numbers in 
the SOUND statement of line 330. To simply 
increase the volume, add this line: 315 
VOLUME 8 

Alteration — Change the color of the dogs by 
changing the value of the third number in any 
SPRITE setup line, lines 360, 380, 400 and 
420. For example, 360 SPRITE 1,1,7,0:REM 
SET UP SPRITE 1 replaces a 12 with a 7. This 
changes the color of Sprite 1 to blue instead of 
dark gray. 

Alteration — You can change the speed of the 
dogs by increasing the second number in the 
SPRITE commands of lines 440-470. For ex- 
ample, change +2 to +4. If the number is too 
big, the dogs will seem to jump toward the 
finish line. 



270 PRINT" {C/DNJALL BETS ARE IN...":PRIN 

T"HIT ANY KEY TO START THE RACE. " :GETKEY 

Q* 

280 I FZ=OTHENZ= 1 : 60SUB780 : G0SUB660 

290 C0L0R0,6:GRAPHICl:TEMP0 12 

300 PLAY »Vi04T8U8X0 B 

310 PLAY "V103QGV104QGSGSGSGS#FS#FS#FSFS 

FSGWE" 

320 PLAY "V104SES#FQGSES#FQGSES#F<3GQGQG H 

330 SLEEP3: SOUND 1 , 4500, 5, 0, 4500, 0, 3 

340 REM START RACE 

350 MOVSPR 1,20, 95: REM POSITION SPRITE 1 

360 SPRITE 1,1, 12,0: REM SET UP SPRITE 1 

370 MOVSPR 2,20, 111: REM POSITION SPRITE 

2 

380 SPRITE 2, 1,10,0: REM SET SPRITE 2 

390 MOVSPR 3,20,127:REM POSITON SPRITE 3 

400 SPRITE 3, 1,3,0: REM SET UP SPRITE 3 

410 MOVSPR 4,20, 143: REM POSITON SPRITE 4 

420 SPRITE 4, 1,7,0: REM SET SPRITE 4 

430 REM MOVE DOGS 

440 IFRND ( 1 ) >P ( 1 ) THENM0VSPR1 , +2, +0: IFRSP 

POS < 1 , 0) >312THENW=1 : G0T0500 

450 IFRND<l)>P(2)THENM0VSPR2,+2,+0:lFRSP 

POS (2,0) >312THENW=2:G0T0500 

460 I FRND ( 1 ) >P < 3 ) THENM0VSPR3 , +2 , +0 : 1 PRSP 

POS (3, 0) >312THENW=3: G0T0500 

470 IFRND ( 1 ) >P ( 4) THENM0VSPR4, +2, +0: IFRSP 

POS (4,0) >312THENW=4:G0T0500 

480 GOT0440 

490 REM DECLARE WINNER 

500 SLEEP3:C0L0R0,12 

MORE-* 
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Programming Note — Make the graphic char- 
acter in line 710 by typing COMMODORE- + . 



510 forx=ito4:spritex,o:next:graphico 
520 print" {clrhc/dnkrvon>we have a win 

NER ! " 

530 PRINT"{C/DN}# M W n - "D*(W) M PAYS OFF A 

T"0(W)"TO 1." 

540 F0RX=1T0P:PRINT"<C/DN>"X"{C/LF>) "N* 

(X); 

550 IFS<X)=WTHENPRINT" WINS *"B(X)*<0<W) 

-i)» »":m<X)=m<X)+b<x>*(0<W)-1):goto 570 

560 PRINT" LOST *»B(X)"ON THAT ONE.":M<X 

>=M(X)-B<X) 

570 NEXT 

580 X=0: F0RY=1T0P: IFM (Y) >OTHENX=i 

590 NEXT : I FX=OTHENPR I NT " { C / DN > EVERYONE ' S 

BROKE ! " 
600 IFX=OTHENPRINT"{C/DN>YOU'VE PAID FOR 
MY VACATION. ":PRINT"<C/DN>[RUN] TO REST 
ART.": END 

610 PRINT" <C/DN> ANOTHER RACE (Y/N)?" 
620 GETKEYQ*:IFQ*="Y"THEN150 
630 I FQ*< > " N " THEN620 

640 PRINT" {CLR>":F0RX=1T0P: PRINT" <C/DNJ" 
X"{C/LF>) "N*(X)" IS LEFT WITH *"M(X):NE 
XT: END 

650 REM DRAW RACE TRACK 
660 COLORO, 6: C0L0R4, 12: C0L0R1 , 1 : SCNCLR 
670 F0RX=48T0112STEP16: DRAW1 , 0, XT0319, X: 
NEXT 

680 B0X1, 100,6,219,24,0,1 
690 CHAR1, 14,1, "UNCLE LOUIS'", 1 
700 CHAR1,16,2,"D0GTRACK",1 
710 F*="$FINISH8T : F0RX=1T08: CHAR1 , 39, 5+X 
,MID*<F*,X,l),l:NEXT 

720 F0RX=1T04: CHAR1 , 0, 2*X+5, MID* (STR* (X) 
,2): NEXT 

730 F0RX=0T0319STEP9:B0X1 , X, 120, X, 170, 45 
740 BOX1,X,120,X,170,135:NEXT 
750 F0RX=1T0319STEP31 . 4: B0X1 , X, 120, X+3, 1 
65, 0,1: NEXT 
760 RETURN 

REM DRAW DOGS SUBROUTINE 

GRAPHIC1 : COLORO, 1 : C0L0R1 , 1 

SCNCLR: REM DRAW DOGS 2,4 



770 
780 
790 
800 
,15 
810 
,18 
820 
830 
,23 



DRAW 1,25,11 TO 

TO 33,15 

DRAW 1,32,15 TO 

TO 28,19 

DRAW 1,29,20 TO 

DRAW 1,27,18 TO 

TO 25,27 



28,14 TO 30,14 TO 31 

32,17 TO 31,18 TO 29 

30, 20: DRAW 1,26,27 
27,21 TO 26,23 TO 25 
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840 DRAW 1,24,27 TO 23,2? TO 23,24 T022, 

23 TO 22,21 

850 DRAW 1,21,23 TO 17,23 TO 17,24 TO 16 

,25 TO 16,27 TO 17,27 

860 DRAW 1,15,27 TO 14,27 TO 14,22 TO 12 

,20 TO 12,18 TO 14,16 

870 DRAW 1,15,16 TO 18,16 TO 19,15 TO 22 

,15 TO 25,11 

880 DRAW 1,11,16 TO 12,15 TO 13,15 

890 PAINT 1,26,16 

900 DRAW 0,26,15 

910 SSHAPE B*, 11, 10,34,31 

920 SPRSAV B$, 2: SPRSAV B*,4 

930 SCNCLR:REM DRAW DOG 1,3 

940 DRAW 1,25,11 TO 29,15 TO 33,15 

950 DRAW 1,32,15 TO 32,17 TO 31,18 TO 29 

,18 TO 28,19 

960 DRAW 1,29,20 TO 30, 20: DRAW 1,26,27 

970 DRAW 1,27,18 TO 27,21 TO 26,23 TO 25 

23 TO 25 27 
980 DRAW 1,24,2? TO 23,27 TO 23,24 T022, 
23 TO 22,21 

990 DRAW 1,21,23 TO 17,23 TO 17,24 TO 16 
,25 TO 16,27 TO 17,27 

1000 DRAW 1,15,27 TO 14,27 TO 14,22 TO 1 
2,20 TO 12,18 TO 14,16 
1010 DRAW 1,15,16 TO 23,16 TO 25,11 
1020 DRAW 1,12,13 TO 11,14 TO 11,16 TO 1 



4,16 



MORE 



<r£& 
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1030 PAINT 1,26,17 

1040 DRAW 0,28,15 

1050 SSHAPE C$,11,10,34,31 

1060 SPRSAV C*,1:SPRSAV C*,3:SCNCLR 

1070 RETURN 

1080 REM PRINT PROGRAM 

1090 PRINT" <CLR>1) {RVON>MOLLY<RVOF>: HU 

SKY MIXED BREED CAN REALLY" 

1100 PRINT" HAUL... HAS WON 16 OUT OF 2 

4" 

1110 PRINT" PROFESSIONAL RACES. THIS 7 

YEAR OLD" 
1120 PRINT" HAS EXPERIENCE, CONFIDENCE 

AND CLASS."; 
1130 PRINT" A SURE BET IF SHE DOESN'T 
STOP ALONG" 

1140 PRINT" THE TRACK FOR A SNACK.": PR 
INT" ODDS! 2-1" 

1150 PRINT"CC/DN>2> <RVON>FELICE{RVOF>: 
THIS 8 YEAR OLD SHAGGY HAS" 



BEEN KNOWN TO FALL ASLEEP 



MIDDLE OF THE TRACK. BUT W 



THROW A FEW RACES... HIS LI 



1160 PRINT" 

IN THE" 

1170 PRINT" 

ATCH OUT." 

1180 PRINT" THIS SLEEPER IS FULL OF SU 

RPRISES.": PRINT" ODDS: 10-1" 

1190 PRINT" «C/DNHC/DNMC/DN>HIT ANY KEY 

FOR NEXT PAGE":GETKEYQ* 
1200 PRINT" {CLR>3> <RVON>BAD DOGCRVOF}: 
THIS GUY CAN RUN..." 
1210 PRINT" UNFORTUNATELY, HE HAS BEEN 

KNOWN TO" 
1220 PRINT" 
CENSE IS" 
1230 PRINT" 
DS: 4-1" 

1240 PRINT" CC/DN>4) {RVONIBILLYCRVOFJ TH 
IS PUP HAS SPEED, PEP, AND" 
1250 PRINT" VITALITY... IF HE RUNS IN T 
HE RIGHT" 

1260 PRINT" DIRECTION. HE IS A REAL TH 
REAT." 

1270 PRINT" FIRST PROFESSIONAL RACE.": 
PRINT" ODDS: 7-1" 

1230 PRINT" {C/DNKC/DN}HIT ANY KEY TO PL 
ACE YOUR BET. ":6ETKEYQ*: RETURN 



ON PROBATION.": PRINT" 



OD 
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Lost Dutchman Mine 



Here's a game based on an Arizona folk tale about the disappearance of a Dutch prospector in the 
Superstition Mountains. The game is an adventure maze with more than one screen display. You move through 
the first maze picking up gold pieces (•) and searching for clues (?) to the hidden treasure of the mine. But you're 
constantly being chased by ghosts of lost prospectors. The game ends if one catches you. 

When you touch the correct clue, you've found the secret treasure stash. You then find yourself in a new 
room. The treasure is in clear sight, but it's protected by the Dutchman's ghost. If your reach the treasure, you 
receive 10 times the amount of gold collected in the first maze. 



Alteration — For Western music, add the mus- 
ic from Hangman to this program before line 
20. 



10 REM LOST DUTCHMAN MINE 

20 x=rnd ( ) : wl= 1 60 : bl=32 : n=50 : g0sub560 
30 sr=o:gl=2020:dv=40:dh=i:k$="{C/upmc/ 

RTXC/DNHC/LFJ" 

40 REM START LOOP 

50 CHAR1, 14,0, "SCORE: M +STR*(SR) 

60 D=0: IFVTHEN80 

70 0NJ0Y(2)+160T0 210,90,210,100,210,110 

,210,120,210 

80 GETQ*:0N INSTR(K*,Q*, 1) +1 G0T0210,90, 

100,110,120 

90 D=-DV:G0T0130 

100 D-DH: GOTO 130 

110 D=DV:G0T0130 

120 D=-DH:G0T0130 

MORE-* 
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Alteration — To change the value of a piece of 
gold to 5, change the number 1 to 5 in line 170. 



130 S0UND1 , 3000, 1 , 0, 0, 0, 3: P0KE208, 

140 IFPEEK(L+B)=BLTHEN 210 

150 IFPEEK(L+D)=WLTHEN 230 

160 IFPEEK(L+B)=GTHEN350 

170 IFPEEK(L+D)=GPTHENSR=SR+l:GOTO 210 

180 IFPEEK(L+D)=CLTHENSR=SR+100:CHAR1,0, 

0,"FIND R00M M :SLEEP1:CHAR1,0,0," 
ii 

190 IFL+D=RLTHEN410 
200 IFL+B=GLTHEN500 

210 pokel,bl:l=l+b:pokel,i 

220 LY=INT((L-S)/BV>:LX=L-S-LY*BV 

230 D=0:NG=3:IFRL=2020THENNG=1 

240 F0RX= 1 TONG : POKEG ( X ) , BL 

250 GY=INT((G(X)-S>/BV):6X=G(X>-S-GY*BV 

260 IFGX<LXTHENIFPEEK<G<X)+BHXN THENB=B 

H:G0T0280 

270 IFGX>I_XTHENIFPEEK(G(X>-BHXN THENB=- 

BH 

280 ifgy>lythenifpeek(g(x)+b-bvxn thenb 

=d-dv:goto3oo 

290 ifgy<lythenifpeek(g(x)+b+bvxn thenb 

=B+BV 

300 IFPEEK(G(X)+B)=ITHEN350 

310 G(X)=G(X)+B:P0KEG(X),G:IFG=65THENG=8 

8:G0T0330 

320 IFG=88THENG=65 

330 NEXTX :S0UNB1, 40000, l:G0T050 

340 REM CAUGHT 

350 C0L0R4 , 3 : S0UNB2 , 20000 , 300 ,2,1 0000 , 1 



360 SLEEP4:C0L0R4, 15: PRINT" CCLRXC/BNXC 

/BN>Y0U LOSE! ! !» 

370 PRINT"MY GHOST GOT YOU!" 

380 PRINT"{C/BN>HA HA HA HA HA!" 

390 G0T0530 

400 REM SECRET ROOM 

410 PRINT" {CLRJ":F0RX=1T019:P0KE1064+X,1 

60: P0KE1544+X, 160: NEXT 

420 F0RX=1065T01525STEP40: POKEX, 160: POKE 

X+18, 160: NEXT 

430 S=1106:B=160:BX=49 

440 F0RX=0T0BX : P0KES+40*INT (RNB ( 1 ) *12) +1 

NT (RNB(1)M7),B: NEXTX 

450 GL=S+40*INT (RNB ( 1 )*12) +INT (RNB ( 1 )*17 

):P0KEGL,164 

460 g=88:f0rx=1t03:g(x) =1513: nextx: l=s+8 
470 forx=ito3:pokeg(X),g:nextx:pokel,i 

480 RL=2020 

490 SLEEPl:G0T050 

500 SLEEP1 
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Programming Note — Make the graphic char- 
acter in line- 620 by typing SHIFT-X. 



Alteration — For an easier cave, decrease the 
value of variable BX in line 750, and vice- 
versa. 

Alteration — Changing the value of variable C 
in line 750 will change the number of gold 
pieces in the cave. 



510 PRINT"{CLR>{C/DNKC/DN}"TAB(il) "YOU 
FOUND THE GOLD ! " 

520 PRINTTAB(11)"{C/DNKC/DN}FINAL SCORE 
: "SR*10 

530 PRINT"<C/DN>{C/DN}PLAY AGAIN (Y/N)?» 
540 GETKEYQ*: IFQ*="Y"THENRUN: IFQ*<>"N"TH 
EN540 
550 END 

560 PRINT" {CLR>{GRYi>":C0L0R0,2:C0L0R4,l 
5 

570 PRINT" {R VON > LOST DUTCHMAN MINE ADVEN 
TURE" 

580 PRINT" {C/DN>SOME TIME AGO, IN ARI20N 
A'S SUPERSTITION" 

590 PR I NT "MOUNTAINS, THE GOLD OF THE LOS 
T" 

600 PR I NT "DUTCHMAN WAS LOST IN A CAVE." 
610 PRINT" {C/DNJAS YOU SEARCH THE CAVES 
BE SURE TO" 

620 PR I NT "AVOID THE GHOSTS (♦) . " 
630 PRINT" <C/DN>COLLECT COINS (.) FOR PO 
I NTS AND THE" 

640 PRINT"MYSTERIOUS CLUES ( {RVON>?{RVOF 
}) TO HELP YOU ON": PR I NT "THE WAY" 
650 PRINT" {C/DN>YOU MAY USE JOYSTICK #2 
OR CURSOR KEYS" 

660 PR I NT "TO MOVE. WHICH WOULD YOU LIKE 
(J/K)?" 

670 GETKEYQ*: IFQ*< " J"0RQ*>"K"THEN670 
680 V=ASC(Q*)-74 

690 PRINT" (C/DNJPLEASE ENTER YOUR FIRST 
INITIAL." 

700 GETKEYI*: IFI*< "A"0RI*>"Z"THEN700 
710 I=ASC(I*)-64:PRINT»<CLR>" 
720 F0RX=1065T01102:P0KEX, 160:P0KEX+800, 
160: NEXT 

730 FORX= 1 1 05T0 1 825STEP40 : POKEX , 1 60 : POKE 
X+37, 160: NEXT 

740 S=1106:B=160:G=146:CL=191 
750 BX=249:C=99:GP=46 

760 FORX=OTOBX : P0KES+40*I NT ( RND ( 1 > *1 9 ) + 1 
NT<RNDU)*35),B:NEXTX 

770 F0RX=0T0C: P0KES+40*INT (RND ( 1 ) *19) +IN 
T(RND<1)*35),GP:NEXTX 

780 F0RX=0T03: RL=S+40*INT (RND < 1 ) #19) +INT 
( RND ( 1 ) *35 ) : POKERL , CL : NEXTX 
790 G=88: G ( 1 ) =1428: G (2) =1458: G (3) =1764: L 
=S+18 

800 FORX= 1 T03 : POKEG ( X ) , G : NEXTX : POKEL , I 
810 RETURN 
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Alteration — Change the number 5 in lines 40 
and SO to a 7 to change the musical instrument 
from a guitar to an organ. Then change the REM 
statements in lines 40 and SO to reflect that 
change. Try values from 1 to 9 following the t 
in lines 40 and SO to see what other instruments 
you can identify and use. 



Some experts believe say that our lives are governed by three regular cycles: physical (23 days) , emotional 
(28 days) and intellectual (33 days). This fun program uses computer power to instantly calculate your current 
status on each cycle, telling you about yourself today, yesterday or tomorrow! 

The computer first calculates how many days you have been alive based on your date of birth and today's 
date. Then it calculates your biorhythm and displays the results for all three cycles on a two-dimensional graph. 
Results are accurate to within one day for any two dates in the 20th century. 

It's easiest to enter this program in the upper-case/lower-case mode. Do this by typing PRINT CHR$(1 4) and 
striking the RETURN key while in the direct mode. 

10 rem biorhythm 

20 scnclr 

30 tempo 8: rem melody by schuman 

40 play "vl04t5u8x0":rem vi=guitar 

50 play "v204t5u8x0":rem v2=guitar 

60 a$="vlo4qev2o3icig vlo4qdv2o3if ig vlo 

4qcv2o3ieig vlo3qbv2o3icie" 

70 b$="vlo3iav2o3if vlo4icv2o3id vlo3ibv 

2o3ig vlo4idv2o3if vio4qcv2o3ieif " 

80 C*="vl03qgv2o3ieid" 

90 d$="vlo4qgv2o3ieig vlo4qf v2o3idig vlo 

4qev2o3icig vlo4qcv2o3ieig" 

100 e$= H vlo3qbv2o3idig vlo3qav2o3i#f id v 

lo3qgv2o2ibo3id vlo4qrv2o2qg" 

110 play a*: play b*: play c* 

120 play d$:play e$ 

130 dimm*(12),p(10),e(10),i (10) 

140 colorO, 16:color4, 13 

150 f orx=ltol2:readm*<x> :next 

160 printchr*<14>"{CLRKBLUE}"tab(15)"{R 

VON>BIORHYTHM" 

170 print"{WHT}{C/DN}The theory of biorh 

ythms states that" 

ISO print "each person has three psycholo 

gical " 

190 prinf'cycles corresponding to their 

physical, " 

200 prinf'emotional, and intellectual st 

ates. " 

210 print"{C/DN>These cycles are said to 

begin at birth. " 

220 prinf'The physical is 23 days long." 

230 print "The emotional is 28 days long, 
ii 

240 prinf'The intellectual is 33 days lo 
ng. " 

250 print"CC/DN>The first half of the cy 
cle is said to" 
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260 print"be an 'up' time while the seco 

nd is" 

270 prinfconsidered a 'down' time. The 

midpoint" 

280 print"is called a critical day." 

290 input"<C/DN}Enter birth month (spell 

it)'*;ml* 
300 ml=0:f orx=ltol2: i-f le-f t*(ml*,3) = le-ft* 
(m$(x) ,3) thenml=x 

310 nexrii+mlsOthenprint'no such month": 
goto290 

320 input "Enter birth day (number) "Jdl: i 
fdl>31then320 

330 input "Enter birth year " ;yl: i-f yl< 1000 
thenprinf'All digits, please. H :goto330 
340 input"{C/DNJToday's month (spell it) 
"5 m* 

MORE-* 
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350 m=0:-forx=ltol2:i-Heft*<m$,3)=left$<m 

*(x) ,3) thenm=x 

360 next: i-fm=Othenprint"no such month" :g 

oto340 

370 inpuf'Today's day (number) "}d: Hd>31 

then370 

380 inpuf'Today's year "iy: i-fy<1000thenpr 

int "All digits, please. ":goto380 

390 f=int((y-yi)*365.25+(m-mi)*30.42+d-d 

l):x=-f-4 

400 -fori=0tol0:x=x + l 

410 p(i)=x/23-int(x/23):ifp(i)>.5thenp(i 

)=l-p(i) 

420 e(i)=x/28-int (x/28) : ife(i ) >.5thene(i 

)=l-e(i) 

430 i (i)=x/33-int(x/33):i-fi(i)>.5theni(i 

)=l-i(i) 

440 p(i)=p(i)*2:e(i)=e(i)*2:i(i)=i(i)#2: 

next 

450 print" {CLR> You have been al ive"f "day 

s!" 

460 print"{C/DN>Hit any key to see your 

biorhythm ■for{C/DN} B :printm*id ,, {C/LF>, "y 

:getkeyq£ 

470 dat a j an , -F eb , mar , apr , may , j un , j u 1 , aug , 

sep,oct, nov,dec 

480 graphic clr:graphicl, l:colorl,7 

490 drawl,35,20to35,170to300,170 

500 -Fori=35to280step20:drawl, i,95toi+10, 

95: next 

510 charl, 15, 23, "t":chari, 13,24, ' 'today" 

520 charl, 9,0, "hit any key to continue" 

530 -fori=51to291step24:drawl, i,170toi,17 

3: next 

540 -f or i =1 to3 : read t* ( i ) , x < i ) , y ( i ) 
charl, x ( i ) ,y ( i ) , t$( i ) :next 
data high,0,2,crit,0,ll, low, 1,21 
x=-3: for i=5to35step3: charl, i ,22,str$ 
x=x+l: next 

charl,5,int(p(0)*19+2.5),"p" 
charl, 37, int (p(10)*19+2.5) , "p" 
char 1,5, int (e(0)*19+2.5) , "e" 
charl, 37, int (eU0)*19+2.5) , "e" 
charl,5,int<i (0)*19+2.5) , "i" 
charl, 37, int (i (10)^19+2.5) , " i " 
x=l : f or i=51to267step24 
drawi,i,int(p(x-i)*150+19.5) to 

,int(p(x)*150+19.5) 

660 drawl,i,int(e(x-i)*150+19.5) 

,int(e(x)*150+19.5) 



550 
560 
570 

(x): 

580 
590 
600 
610 
620 
630 
640 
650 



i+24 



to i+24 



58 



Biorhythm 

670 drawl,i,int<i<x-l>*150+19.5> to i+24 

,int(i<x>*150+19.5> 

680 x=x+i:next 

690 getkeyq$: graph icO 

700 print" {CLRMC/DN>Calculate another b 

iorythm <Y/N>?" 

710 getkeyq*: ifq*= ,, y"ther>run:elsei-fq*<>" 

n"ther»710 
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Queen Of The Nile 



Journey through Cleopatra's tomb in search of ancient treasure. Your time is limited to two minutes, and 
the dangers are many. But clever action will bring you rewards. 

Control your progress through the burial maze by using a joystick or the cursor keys to move yourself (U) to 
the treasure ($). By pressing the fire button or spacebar, you can blast through walls with dynamite. But be 
careful because your supply of dynamite is limited. You may destroy treasure too! 

If you get too close to a snake pit (S) or mummy (M), you may get caught. 

10 REM QUEEN OF THE NILE 

20 F0RX=1T08:READ L<X):NEXT 

30 X=RND(0):G0SUB590 

40 K*="<C/UPXC/RTXC/DNHC/LF> ":UL=188 

4 : UC=21 : DY=9: 00=54272 

so dv=40:dh=i:wl=160:gp=46:tr=36:mm=13:s 

P=8l:BL=32 

60 F0RX=1064T01103:P0KEX,W1_:NEXT 

70 F0RX= 1 1 04T0 1 863 : I FRND ( 1 ) > . 4THENP0KEX , 

WL 

80 I FRND ( 1 ) > . 9THENP0KEX , GP : POKEX +C0 , 7 

90 NEXT:F0RX=0T09 



Alteration — Change the amount of dynamite 
you start with by changing the value of DY in 
line 40. 

Alteration — For a denser and more difficult 
room, change A in line 70 to .3. 

Alteration — To increase the amount of gold in 
the room, change the .9 in line 80 to .8 or .7. 

Alteration — Change the number of snake pits 
and mummies by using a number other than 9 in 
line 90. 
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Alteration — Change the time limit to 3 mi- 
nutes by changing the first statement in line 420 
to 420 IF VAL(TI$)>300 etc. 



100 M=INT(RND(1)*600)+1 144: P0KEM,MM: POKE 

M+C0,2 

110 S=INT < RND ( 1 ) *600 ) + 1 144 : POKES , SP : POKE 

S+C0,5 

120 NEXT:F0RX=1T06 

130 T=INT(RND(1>*480)+1144 

140 ifpeek(t)oelthen130 
150 poket,tr:next:pokeul,uc 

160 TI*=" 000000" 

170 REM START LOOP 

ISO F0RX=1T04: IFPEEK (UL+L(X> )=SPTHENIFRN 

DdX.lTHEN 410 

190 IFPEEK ( UL+L (X) > =MMTHENIFRND (IX. 1THE 

N 400 

200 NEXT 

210 CHARl,2,0, ,, TIME-"+MID*(TI*,4,l) + M :" + 

ri6ht*<ti*,2>+" gold *"+str*(g> +" dyna 
mite: h +str*(dy>,i 

220 IFVTHEN250 

230 ON J0Y(2)+1G0T0 420,260,420,270,420, 

280,420,290,420 

240 G0T0470 

250 GETS*: ON INSTR(K*,Q*) +1 GOTO 420,260 

,270,280,290,470 

260 D=-DV:G0T0300 

270 D=DH:G0T0300 

280 D=DV:G0T0300 

290 D=-DH 

300 SOUND 1,3000,1 

310 IF PEEK(UL+D)=BL THEN 

320 IF PEEK(UL+D)=WL THEN 

330 IF PEEK(UL+D)=TR THEN 

*1 000 ) + 1 000 : G0T0380 

340 IF PEEK(UL+D)=GP THEN G=G+100: 60T038 



350 

360 

370 

380 

390 



380 
420 
G=G+INT(RND(1) 



THEN 
THEN 



400 
410 



IF PEEK(UL+D)=MM 

IF PEEK(UL+D)=SP 

REM MOVE U 

IFUL+DM944 OR UL+D<1063 THEN 420 

POKEUL , BL : UL=UL+D : POKEUL , UC : POKEUL+C 
0,0:G0T0420 

400 POKEUL, BL:E*=" MY MUMMY GOT YOU!!!":F 
L=l:G0T0530 

410 POKEUL, BL:E*=" YOU FELL INTO A SNAKE 
PIT! I !":FL=l:G0T0530 

420 IFVAL(TI*)>200THENE*="TIME HAS EXPIR 
ED":G0T0530 

430 IFRND<1)>.1THEN ISO 

440 X=INT (RND ( 1 )*600) +1 144: IFPEEK (X) < >32 
THEN440 

450 pokex,wl:pokex+co,o:gotoiso 

MORE-* 
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460 REM EXPLODE DYNAMITE 
470 IFDY=0THEN180 
480 FOR X=1T08:P0KEUL+L<X),BL:P0KEUL-L<X 

),bl:next:dy=dy-i 

490 S0UND2, 5000, 100, 0,0, 0,3 

500 F0RVL=15T00STEP-.03:V0L VL:NEXT 

510 V0L15:G0T01S0 

520 REM END GAME 

530 SLEEP1:P0KE208,0: PRINT" {CLRKC/DNXC 

/DN}"TAB(20-LEN<E*)/2+.5>iE* 

540 IFFL=1THEN560 

550 PRINT" (C/DN> YOU COLLECTED *"G"WOR 

TH OF GOLD!" 

560 PRINTTAB(12)"<C/DNKC/DN}PLAY AGAIN 

(Y/N)? H 

570 GETKEYQ*: IFQ*="Y ,, THENRUN:ELSEIFQ*<> ,, 

N"THEN570 

580 END 

590 C0L0R0,13:C0L0R4,10:PRINT"{CLRKWHT> 

":PRINTTAB<11) ,, {RV0N}QUEEN OF THE NILE" 

600 PRINT" tC/DN>YOU MAY USE JOYSTICK #2 

OR CURSOR" 

610 PRINT"KEYS TO MOVE AND THE FIRE BUTT 

ON OR" 
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Programming Note — Make the graphic char- 
acter in line 690 by typing SHIFT-Q. 



620 PR I NT "SPACE BAR TO DYNAMITE THROUGH 

WALLS. ■ 

630 PRINT" {C/DN)USE {RV0N>J{RV0F>0YSTICK 

OR {RVON>K{RVOF}EYBOARD <J/K>?" 
640 GETKEYQ*: IFQ*< " J"0RQ*>"K"THEN640 
650 V=ASC<<3*)-74 

660 PRINT" {C/DN3CCLR> YOU HAVE TWO MINUTE 
S TO GATHER TREASURE." 

670 PRINT"<C/DN>SYMBOLS:":PRINT"{C/DN} i 
YELO>*{WHT> ■ TREASURE" 

680 PRINT" CC/DN) <YELO>.<WHT> = GOLD PIE 
CE" : PRINT" {C/DN> {RED>M<WHT> - MUMMY" 
690 PRINT" <C/DN> {GRN>«<WHT> = SNAKE PIT 
": PRINT" {C/DN3 {BLKHRVONJ {RVOFMWHT} = 

WALL" 
700 PRINT" {C/DN> WATCH OUT FOR NARROW PAS 
SAGES... THERE" 

710 PRINT "ARE SOMETIMES CAVE- INS IN THES 
E TOMBS!" 

720 PRINT" €C/DN>HIT ANY KEY TO START" 
730 GETKEYQ*: PRINT" {BLKXCLR}": RETURN 
740 DATA-40, 40, -1,1,-41, -39, 41 , 39 
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Thin Ice 



Don your wool cap and grab your spear and auger because it's time to do some ice fishing on Ted's pond. 
Due to some recent warm weather, there are spots of thin ice. Avoid them because unusual dangers lurk below. 
Get as many fish as you can before time runs out. Be careful as you move across the ice because it takes a little 
while to change direction and speed on the ice! 



Alteration — To use the numeric keypad to 
change direction, change line 30 to 30 
K$= •• ,.8624 " :X= RND(0). This turns on the 
numeric keypad so 8,6,2 and 4 control up, 
right, down and left respectively. 

Programming Tip — The purpose of 
X=RND(0) in line 30 is to scramble the 
random-number generator. Otherwise the "ran- 
dom" pattern is the same every time you run the 
program. 



Alteration — Changing variable A1 in line 230 
to a value of 45 lets you turn corners faster on 
the ice. Changing it to 15 will make turns-slow- 
er. The number you use for A1 must be between 
and 90 and divide into 90 evenly. 



10 REM THIN ICE 

20 C0L0R0, 2: C0L0R4, 16: COLOR1 , 15: G0SUB740 

30 K*=",.{C/UPXC/RTXC/DNHC/LF}":X=RND 

(0) 

40 PRINT" <CLRMLBLU> WELCOME TO TED'S PON 

D" 

50 PRINT" {C/DN>THE POND IS FROZEN OVER F 

OR THE FIRST" 

60 PRINT"TIME THIS SEASON. " 

70 PRINT" {C/DNJYOU ARE INVITED TO ICE FI 

SH, BUT BE" 

SO PR I NT "CAREFUL. THIS WARM SPELL MIGHT 

HAVE" 

90 PRINT"WEAKENED THE ICE. STICK TO THE 

WHITE" 

100 PRINT" ICE IF YOU CAN. IF YOU MUST CR 

OSS THE" 

110 PRINT"BLUE ICE, DO IT QUICKLY!" 

120 PRINT" <C/DN>CHANGE YOUR DIRECTION WI 

TH THE CURSOR" 

130 PRINT"KEYS. SLOW DOWN WITH THE < KEY 

AND" 
140 PRINT"SPEED UP WITH THE > KEY. REMEM 
BER..." 

150 PRINT" IT TAKES A WHILE TO CHANGE DIR 
ECTION" 

160 PR I NT "AND SPEED ON THE ICE POND." 
170 PRINT" {C/DNJYOU GET POINTS FOR THE N 
UMBER OF FISH" 

180 PR I NT "YOU CATCH AND FOR SPEED... GOO 
D LUCK!" 

190 PRINT"{C/DN>HIT ANY KEY TO START." 
200 GETKEYQ*: PRINT" <CLR>" 
210 F0RY=1T05: F0RX=14-YT024+Y: CHAR1 ,X, 6+ 
Y," ",l:NEXTX,Y 

220 F0RY=1 T05 : F0RX=8+ YT030- Y : CHAR1 , X , 1 1 + 
Y," ",l:NEXTX,Y 

230 C0LLISI0N1,510:A1-30:A2=90:A3=180:A4 
=360 : L 1 =320 : L2=0 : L3=240 : L4=40 
240 M0VSPR1 , 30, 70: A=90: S=l : SPRITE1 , 1 
250 G0SUB550 : T=T I : SPR I TE2 , 1 
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260 REM START LOOP 

270 CHARi,14,9, H FISH="+STR*<F),l 

230 CHARi,14,il,"TIME= n +STR*(TI-T)+" 

1 

290 CHAR1,14,13,"SC0RE="+STR*<SC>,1 

300 GETQ*:X=INSTR(K*,Q*> 

310 IFX>2THEN350 

320 IFX=1THENIFS>0THENS=S-1 

330 IFX=2THENIFS<7THENS=S+1 

340 G0T042O 

350 D=(X-3)*A2 

360 IFD>A3+ATHENA=A-Al:G0T0400 

370 IFD<A-A3THENA=A+Al:G0T0400 

380 IFD>ATHENA=A+A1 

390 IFD<ATHENA=A-A1 

400 IFA>=A4THENA=A-A4 

410 IFA<L2THENA=A+A4 

420 M0VSPR1,A #S 

MORE 



v*«* 
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Alteration — Increasing the value of .07 in line 
600 increases the chance of ice breaking, and 
vice-versa. The range of possibilities must be 
between and 1.0. 



430 IFBUMP<2)ANDiTHEN600 

440 X=RSPP0S (1,0): Y=RSPP0S (1,1) 

450 IFX>L1 ANDX<405 THEN M0VSPR1 ,L2, Y: GO 

T0470 

460 IFX>Li THEN M0VSPR1,L1,Y 

470 IFY>L3 0RY<13 THEN MQVSPR1,X,L4:G0T0 

270 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 



IFY<L4 THEN M0VSPR1,X,L3 
60T0270 

REM GOT A FISH 
IFBUMP ( 1 ) =L2THENRETURN 
SC=SC+INT(150-(TI-T)/10) 
F=F+1 : S0UND1 , 40000, 15 
IFF=20THEN670 

X=RND ( 1 ) #300+21 : Y=RND ( 1 ) *1 60+67 
M0VSPR2,X,Y 

I FX >85ANDX< 250ANDY >95AND Y< 1 80THEN I FR 
ND ( 1 )< . 9THEN550 

580 x=bump(D:t=ti:return 
590 rem on thin ice 
600 ifrnd ( 1 ) > . 07then440 

610 M0VSPR1,0 #0 

620 SOUND! , 30000, 150, 2, 20000, 50, 3 

630 C0L0R0,7:SLEEP3:SPRITE1,0:SPRITE2,0 

640 CHAR1,6,12,"{WHT>Y0U JUST BECAME SHA 

RK MEAL!" 
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650 CHARi,7,15,"TYPE CRUNJ TO PLAY AGAIN 

.»: PRINT :G0T0710 

660 REM WINNER 

670 SPRITE1,0:SPRITE2,0 

680 PRINT"{CLR>":PRINT:PRINT 

690 CHAR1,5,8,"YQU JUST CAUGHT A SCHOOL 

OF FISH!" 

700 CHAR1,7,10,"IT*S A MIRACLE! YOU WIN! 

": PRINT 

710 PRINT" <C/DNXC/DN>FINAL SCORE="SC 

720 PRINT" {C/DNJTYPE C RUNJ TO PLAY AGAIN 

. " : END 

730 REM FISH SPRITE 

740 GRAPHIC1,1 

750 CIRCLE 1,25,18,9,2:PAINT1,20,19 

760 DRAW 1,17,18 TO 13,16 TO 13,21 TO 17 

,18 

770 PAINT 1,14,17:DRAW0,29,17 

780 DRAW 1,21,14 TO 21,21 

790 DRAW 1,32,16 TO 33, 16: DRAW 1,21,15 T 

28,15 

800 SSHAPE A*,11,10,34,31:SPRSAV A*, 2 

810 REM ICE SKATER 

820 SCNCLR: CIRCLE 1,17,13,1 

830 DRAW 1,18,13 TO 25,14 TO 19,18 TO 18 

,13 

840 DRAW 1,25,14 TO 28,17 TO 25,19 TO 26 

,19 TO 26,20 

850 DRAW 1,25,21 TO 20,21 TO 20, 18: DRAW 

1,25,16 

860 DRAW 1,22,22 TO 23,22 

870 DRAW 1,21,23 TO 24,23 TO 24,25 TO 21 

25 TO 21 23 
880 PAINT* 1,20, 14: PAINT 1,22,24 
890 DRAW 1,21,26 TO 21,28 TO 22,28 TO 22 
,26 TO 23,26 

900 DRAW 1,19,28 TO 26,28 TO 27,27 TO 26 
,26 

910 DRAW 1,16,25 TO 19,28 TO 19,26 TO 20 
,26 TO 20,27 

920 DRAW 1,25,24 TO 27, 24: DRAW 1,14,17 T 
30,26 TO 29,24 TO 29,27 
930 SSHAPE A$,ll,10,33,3l:SPRSAV A*, 1 
940 SPRITE 1,0,7,0, l:SPRITE 2,0,12 
950 GRAPHICO,!: RETURN 
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You're the expert working against the clock, trying to find a ticking bomb hidden in a million-room tower! 
You have 250 seconds to find the bomb. Each move takes exactly 10 seconds. To help, you have a 
bomb-sensitive device that gives a stronger readout as you approach the bomb. 

You determine the location of a room by entering values from to 99 for length, width and height. Your 
device then gives a readout that indicates how close you are to the bomb. 10,000 is the highest readout. A 
correct value for length, width or height is indicated by double asterisks in place of the number entered. 

If you don't find the bomb in 250 seconds, it explodes. If you do find the bomb, you have an additional 100 
seconds to defuse it. Guess the three-number combination in the same way you found the room. Enter values 
from 1-10. 



Alteration — To make the game less violent, 
change its name to Treasure Hunt. Change the 
statements that give the user instructions and 
commentary. The new statements should 
discuss finding a hidden treasure chest. When 
the chest is found, the user has to open the 
padlock. The rest of the game is unchanged. 



Alteration — To make the game easier, 
decrease the number of rooms by changing 
INT(RND(8)*100) for variables A, B and C to 
INT(RND(8)*50) in line 120. This gives 
125,000 rooms to choose from instead of a 
million. Be sure to change the instructions if 
you do this. 

Programming Note — Make the graphic 
characters in line ISO by typing 
COMMODORE-Q, COMMODORE-R and 
SHIFT- + repeatedly to match the printout 
shown here. 

Programming Note — Make the graphic 
characters in line 160 by typing 
COMMODORE-Q, COMMODORE-E and 
SHIFT- + repeatedly to match the printout 
shown here. 



10 REN BOMB SQUAD 

20 C0L0R0,13:C0L0R4,4 

30 PRINT" {CLRXWHT>YOU ARE ABOUT TO ACCE 

PT A DANGEROUS" :PRINT"NISSION." 

40 PRINT" <C/DN>A BOMB WHICH YOU MUST DIS 

ARM IS HIDDEN": PRINT" IN ONE ROOM OF A MI 

LLION-ROOM TOWER." 

50 PRINT" {C/DNJYOU DESIGNATE THE ROOM NU 

MBER YOU WISH":PRINT»TO SEARCH BY LENGTH 

, WIDTH, AND HEIGHT" 

60 PRINT" (EACH FROM 0-99). A <RVON>**{RV 

OF> INDICATES A" : PRINT "CORRECT ENTRY." 

70 PRINT" fC/DN> YOU HAVE 250 SECONDS TO F 

IND THE BOMB": PRINT "OR IT WILL EXPLODE. 

YOUR LOCATION" 

80 PR I NT "BEACON WILL GIVE A STRONGER SIG 

NAL AS": PRINT "YOU APPROACH THE BOMB. WHE 

N YOU FIND" 

90 PRINT" IT YOU HAVE 100 SECONDS TO DEFU 

SE IT." 

100 print: print"press any key to start g 
ame.":getkeyq$ 

110 SI =36878: 52=36877 

120 A=INT(RND(8)*i00):B=INT(RND(8)*100): 

C=INT(RND (8>*100> 

130 PRINT"{CLRJ":S=10 

140 PRINT" {HOMEHC/DNKC/DN>{C/DNMC/DN> 

{C/DNKC/DNXC/DNKC/DNJO 12 3 4 5 

6 7 8 9 10" 
150 PRINT" {HOMEHC/DNHC/DNXC/DNKC/DN} 
{C/DNHC/DNHC/DNHC/DNHC/DN> I i i I i i I i i I 



160 PRINT" CC/DN} I ' ' I " I " I ' » I ' ' I ' ' I ' 'I ' ' 

H 



170 PRINT" 
180 PRINT" L 
INT 



W 



BOMB DETECTOR { HOME >" 
H TIME BEACON": PR 
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Programming Note — To help you with the 
number of times to press the spacebar in some 
program lines, here is a helpful summary: 

line 170 10 
Line 210 12 
Line 2S0 12 
Line 260 4 
Line 290 12 
Line 300 8 
Line 310 12 
Line 350 19 
Line 570 12 
Line 610 12 
Line 620 8 
Line 650 12 
Line 660 17 



190 IFA=LTHEN230 

200 PRINT" {HOME} {C/DNHC/DNKC/DNKC/DN} 

{C/DNJ " : INPUT "LENGTH" J L 

210 PRINT" {HOMEMC/DNHC/DNKC/DNKC/DN} 

{C/DNHC/DN} »:IFL>990RL<0THE 

N200 

220 PRINT" {HOMEKC/DNMC/DN}{C/DN>"STR*< 

L) + " " 

230 IFB=WTHEN270 

240 PRINT" {HOMEKC/DNHC/DNHC/DNKC/DN} 

<C/DN>":INPUT"WIDTH"JW 

250 PRINT" {HOME} {C/DNKC/DNKC/DN} {C/DNJ 

{C/DNKC/DN} ":IFW>990RW<0THE 

N200 

260 PRINT"{H0ME} {C/DNKC/DNHC/DNVS 

TR*(W)++" " 

270 ifc=hthen310 

280 print" {homehc/dnhc/dnhc/dnhc/dn} 

{c/dn}»:input"Height";h 

290 print" {homehc/dnkc/dnhc/dnhc/dn} 

{c/dnkc/dn} ":ifh>990rh<0the 

N200 

300 PRINT"{HOME} {C/DNHC/DNMC/D 

N}«STR*<H> + '' " M0RE ^ 
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310 PRINT M {HOME> {C/DNKC/DN} 

{C/DN}"S 

320 print" {home} {c/dnkc/dnhc/dn} {c/dn} 
{c/dnkc/dnkc/dnhc/dnhc/dnhc/dn^ta 

BCJ)" " 

330 BE=1E4- ( ABS ( A-L) +ABS (B-W) +ABS (C-H) >* 

29 

340 J=INTtBE/333.3333+.5) : PRINT "CHOMEXC 

/DNMC/DNHC/DNHC/DNHC/DNKC/DNMC/DN} 

{C/DN>{C/DN>{C/DN}"5TAB(J)"t" 

350 PRINT" {HOME) {C/DN 

}{C/DN}{C/DN}"BE 

360 PRINT»{HOME}{C/DN}{C/DN}{C/DN}"; 

370 IFA=LTHENPRINTTAB ( i ) " {RVON}**{RVOF} " 

a 

330 



390 
400 
410 
420 
430 

";b$ 



IFB=WTHENPRINTTAB<5)"{RV0N}**{RV0F}" 

IFC=HTHENPRINTTAB<9)"{RV0N}**{RV0F} B 

I F A=L ANDB=WANDC=HTHEN450 

S=S+10: IFS<260THEN190 

G0SUB800 

PRINT"THE BOMB WAS AT" :PRINTAJ " 

" "JC 



ii » n 
i 



END 



440 

450 PRINT" {CLRHC/DNKC/DNHC/DNHC/DNK 

C/DN} {C/DN} {C/DN} {C/DN} {C/DN} 

{RVON}BOMB LOCATED{RVOF}" 
460 V=INT (RND <8)*10) +1 : N=INT <RND (8>*10> + 
1:M=INT(RND<8)*10>+1 
470 SLEEP4 

480 PRINT" {CLR} YOU HAVE LOCATED THE BOMB 
.":PRINT"{C/DN}TO DEFUSE IT YOU MUST NOW 

ENTER THE" 
490 PRINT"CORRECT COMBINATION. EACH PART 

IS": PR I NT "BET WEEN 1 AND 10. A CORRECT N 
UMBER IS" 
500 PRINT "INDICATED BY A {RVON}**{RVOF}. 



510 PRINT" {C/DN}GOOD LUCK. YOU HAVE ONLY 

100 SECONDS" 
520 SLEEP6 

530 PRINT" {CLR} ":S=10 

540 PRINT" LEFT RIGHT LEFT TIME 
": PRINT 

550 IFA=VTHEN590 

560 PRINT" {HOME} {C/DN} {C/DNHC/DN} {C/DN} 
{C/DN}": INPUT "LEFT" J A 

570 PRINT "{HOME} {C/DN} {C/DN} {C/DN} {C/DN} 
{C/DN} {C/DN} ":IFA>100RA<1THE 

N560 

580 PRINT"{HOME}{C/DN}{C/DN}{C/DN}"A 
590 IFB=NTHEN630 
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600 PRINT" CHOME} {C/DNXC/DNXC/DNXC/DN} 

{C/DN} " : INPUT "RIGHT" ;B 

610 PRINT" {HOMEXC/DNXC/DNXC/DNXC/DN} 

{C/DNXC/DN} ":IFB>100RB<1THE 

N560 

620 PRINT»CHOME} {C/DNXC/DNXC/D 

N}"B 

630 IFC=MTHEN670 

640 PRINT" {HOMEXC/DNXC/DNXC/DNXC/DN} 

{C/DN}":INPUT"LEFT";C 

650 PRINT" {HOMEXC/DNXC/DNXC/DNXC/DN} 

{C/DNXC/DN} ":IFC>100RC<1THE 

N640 

660 PRINT" {HOME} {C/DNX 

C/DNXC/DN} "C 

670 PR I NT "{HOME} 

{C/DN}{C/DN}{C/DN}"S 
680 PRINT" {HOME} {C/DNXC/DNXC/DN}" ; 
690 IFA=VTHENPRINTTAB<1) "{RVON}**{RVOF}" 



700 



IFB=NTHENPRINTTAB(9)"{RV0N}**{RV0F}" 



710 IFC=MTHENPRINTTAB<13)"{RV0N}**{RV0F} 

H 

720 IFA=VANDB=NANDC=MTHEN780 

730 S=S+10:IFS<110THEN550 

740 G0SUB800 

750 PRINT"THE COMBINATION WAS"VjN;M 

760 PRINT" {C/DN}CONDOLENCES WILL BE SENT 

TO YOUR FAMILY." 
770 END 

780 PRINT" {C/DNXC/DN} BOMB DEFUSED" 

790 END 

800 PRINT" {CLR}»:V0=15: REM SOUND EFFECT 
810 F0RI=1T022:PRINTTAB<13> "{WHT}****KAB 
00M*#**":NEXT 

820 S0UND1, 2000, 1500,2,0,0,3 
830 DO UNTIL V0<.2 
840 VOL V0:C0L0R4,3 
850 C0L0R0,3:F0RJ=1T022:NEXT 
860 C0L0R0,8:F0RJ=1T022:NEXT 
870 V0=V0-.l:L00P 
880 C0L0R0,13:C0L0R4,4 
890 RETURN 
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As ruler of an island nation, you're beset with important decisions. The goal is prosperity for you and your 
people. You try to increase national wealth, personal wealth, population and natural resources. The computer is 
your aid, giving you up-to-the-minute information and choices, in addition to a contemporary rock motif. Your 
reign can last up to 10 years — if a revolution doesn't force a change. 



Alteration — Change any of the opening val- 
ues in line 20. P is population; M is treasury 
money; F is fish; T is years remaining for your 
reign. 



10 scnclr:rem utopia 

20 p=sooo: M=2000000: f=5000: s= ioooo : t=io: 

T- 1 : COLORO , 7 : C0L0R4 ,12: GOSUB 1 1 70 

30 PRINT" {CLRMWHT} HELLO, I AM MODEL 818 

82 OF THE" 

40 PR I NT "SKILLED ANALYSIS MICRO-COMPUTER 

H 

50 PRINT"DIVISION. YOU MAY CALL ME SAM. B 

60 INPUT" <C/DN>PLEASE IDENTIFY YOURSELF 

(NAME)";N* 

70 PRINT" CCLRJWELCOME TO UTOPIA, "N*".» 

80 PRINT" {C/DN>AS BENIGN RULER OF UTOPIA 

, YOU MUST" 

90 PR I NT "GUIDE YOUR CITIZENS THROUGH THE 
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Alteration — Change any of the PRINT state- 
ments to personalize the game or change the 
theme of the adventure. 



Alteration — To leave out the music at the start 
of each year of your reign, delete GOSUB 1170 
from line 220. 



iOO PRINT"DECISIONS OF STATE. ": PRINT" iC/ 

DN>AS YOUR CONSULTING AID, I WILL PRQVID 

E" 

110 PR I NT "YOU WITH VITAL DATA. YOUR STAT 

US REPORT" 

120 PRINT "WILL BE UPDATED AFTER EACH TRA 

NSACTION. " 

130 PRINT" {C/DNJUTOPIA IS AN ISLAND THAT 

IS LOCATED IN" 
140 PRINT"THE TROPICS WHERE YOU WILL RUL 
E FOR A" 
150 PRINT"MAXIMUM OF TEN YEARS. YOU MUST 

CONTROL" 

160 PRINT"THE USE OF NATURAL RESOURCES W 

ISELY." 

170 PRINT" {C/DN>600D LUCK YOUR HIGHNESS, 
ii 

ISO PRINT-MAY THE NAME OF "N*:PRINT"BE A 

BLESSING ON OUR ISLAND." 
190 PRINT" <C/DN>HIT ANY KEY TO CONTINUE. 

" : gosub l l 70 : getke yq* 

200 G0SUB940 

210 F0RT=10T00STEP-l:G0SUB970 

220 INPUT-WHAT IS YOUR SALARY THIS YEAR" 

;X:G0S(JB1170 

230 M=M-X:R=R+X:G0SUB960 

240 IFR>=( <RND(8)*3)+1)*MTHENG0SUB1050 

250 PRINT" {CLR>{RVON>REPORT{RVOF> FROM M 

INISTER OF FISH,»:PRINT"EMMY YELLOWTAIL. 

ii 

260 PRINT" «C/DN>YOUR HIGHNESS THIS IS IT 

■ II 

M 

270 A=INT(RND<3)*3>+1 

280 IFA=1THENPRINT"ALL IS WELL. THE FISH 

THRIVE. THERE IS" 
290 IFA=1THENPRINT "PLENTY TO FEED ALL.": 
F=F+2000 : P=P+5000 : M=M+ 10000 : G0SUB960 
300 IFA=2THENPRINT"WE NEED MORE BOATS. T 
HEY COST *10000" 

310 IFA=2THENPRINT"EACH. HOW MANY WILL Y 
OU BUY ■ i : G0SUB730 : F=500#X 
320 IFA=3THENPRINT"THE SEALS ARE EATING 
MOST OF THE FISH. " :G0SUB750 
330 IFP<1000THENG0SUB1050 
340 PRINT" <CLR>":G0SUB960 
350 PRINT" { RVON> REPORT {RVOF> FROM MINIST 
ER OF FARMS,": PR I NT "STEVEN SOIL.{C/DN>" 
360 X=INT(RND<3>*3>+1 
370 IFX=1THENG0SUB480 
380 IFX=2THENG0SUB490 
390 IFX=3THENG0SUB550 

MORE-* 
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400 I FP= >8000ANDM= >8000000ANDF >8000ANDR > 

1500000THEN420 

410 G0SUB960:NEXTT 

420 F0RX=1T010: PRINT" {CLR} {HOME} {C/DN}": 

SLEEP 1 

430 PRINTTAB(16)"{RV0N} {RVOF}" 

440 PRINTTAB(16)"{RV0N} YOU WIN {RVOF}" 

450 PRINTTABU6)"{RV0N} {RVOF}" 

460 SLEEPi:NEXT 

470 PRINT"{C/DNHC/DN}"N*" IS MADE RULER 

FOR LIFE!{C/DNKC/DN}":G0SUBli70:END 
480 PRINT"ALL CROPS ARE DOING WELL.":P=P 
+2000 : M=M+ 1 00000 : RETURN 

490 PRINT "EXCESS SUGAR CANE HAS BEEN SOL 
D FOR" 

500 PRINT "*1, 000, 000 WHAT PERCENTAGE SHO 
ULD GO" 

510 INPUT "INTO YOUR POCKET (0-100) "JX 
520 IFX<00RX>100THEN510 
530 M=M+1E6-UE6*X/100):R=R+1E6*X/100 
540 RETURN 

550 PR I NT "HEAVY FLOODS FROM A TYPHOON HA 
VE WIPED" 

560 PRINT "OUT MANY CROPS WHAT WILL YOU D 
0?" 

570 PRINT"A) REPLANT NEW CROPS. ": PRINT "B 
) LIVE OFF STORED GRAIN" 
580 PRINT"C) IMPORT CROPS. {C/DN}" 
590 INPUTC*:IFC*<"A"0RC*>"C H THEN590 
600 IFC*="A"THENM=M-INT<200000*RND<8) ) :P 
=P-INT(100*RND(8>> 

610 1 FC*= " B " THENP=P- I NT ( 2000*RND ( 8 ) ) : M=M 
-INT(RND<8>*10000> 

620 IFC*="C H THENM=M-INT(RND(3)*400000) 
630 IFM<0THENM=0:G0SUB1050 
640 IFP<100THENP=100 
650 RETURN 

660 F0RX=1T05: PRINT" {CLR} {C/DN} " : SLEEP1 
670 PRINTTAB< 10) "DEATH TO "N*» ! ! ! " 
680 SLEEP!: NEXT 

690 I=I+INT(RND(4)*P/2):R=INT(R*RND<3)) 
700 IFI>=P*.8THENPRINT"Y0U HAVE BEEN OVE 
RTHROWN.":PRINT"YOU LOSE.": END 
710 IFRND(8X.7THENPRINT"Y0U HAVE MAINTA 
INED POWER. {C/DN}": RETURN 
720 PRINT "YOU HAVE RULED CRUELLY AND ARE 

BANISHED" :PRINT"FROM UTOPIA. ": END 
730 INPUTX:IFX=0THENG0SUB1050 
740 M=M-X*1 0000: RETURN 
750 PRINT" {C/DN}WHAT WILL YOU DO?" 
760 PRINT"A) KILL THE SEALS" :PRINT"B) GI 
VE UP FISHING" 
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Programming Tip — This program uses a 
"window" technique to print messages. The 
status report is due to lines 970-1040. In line 
1030, the new top of the screen is set with 
ESC-T sequence CHR$(27) •• T •• . This lets the 
program write in the bottom part of the screen 
while the status report is unchanged. When it is 
time to update, the PRINT statement in line 970 
cancels the window. 



770 PRINT"C) LET NATURE HANDLE IT": PRINT 

"D> PANIC{C/DN>" 

780 INPUTA*: IFA*< "A"0RA*> M D"THEN780 

790 IFA*= H D H THENPRINT"{C/DN>IT DIDN'T HE 

LP.":G0T0750 

800 IFA*= B A- ,, THENI=I + INT(iOOO*RND(2) ) 

810 IFA*="C"THENI=I+INT(500*RND(7)):F=F- 

INT(RND(4)*3000) 

820 IFF<OTHENF=0 

830 IFA*<>"B"THENRETURN 

840 PRINT" {C/DNJHOW WILL YOU FEED THE PE 

OPLE?" 

850 PRINT"A) LET THEM EAT CAKE. " :PRINT"B 

) BUY THEM IMPORTED FOOD. H 

860 PRINT "O GROW MORE FOOD." 

870 INPUTB*: IFB*< "A"0RB*>"C"THEN870 

880 IFB*="A"THENG0SUB1050 

890 IFB*="B"THENM=M-P*250 

900 IFB*="C"THENM=M-P*200:P=INT(P*.95) 

910 IFM<0THENM=0:G0SUB1050 

920 RETURN 

930 REM SET UP STATUS REPORT 

940 PRINT"<CLR}<H0ME}":F0RX=1024T01063:P 

OKEX , 90 : POKEX +400 , 90 : NEXT 

950 F0RX= 1 064T0 1 424STEP40 : POKEX , 90 : POKEX 

+39 , 90 : NEXT : G0T0970 

960 PRINT" {C/DN>HIT ANY KEY TO CONTINUE. 

" : GETKEYQ* 

970 PRINT"{H0MEXH0ME>»TAB<4) "{C/DNHRVO 

NJSTATUS REPORT: ISLAND OF UTOPIA" 

980 PRINTTAB ( 10) "{C/DN>P0PULATI0N: "P"{C/ 

LF> » 

990 PRINTTAB (12) "TREASURY: "M"tC/LF> " 

1000 PRINTTAB (16) "FISH: "F M {C/LF> " 

PRINTTAB (5) "PERSONAL WEALTH: "R"{C/L 

H 



1010 
F> 

1020 
1030 



PRINTTAB (16) "YEAR: "10-T 
PRINTTAB (10) "INSURGENTS: "IMC/LFJ 
": PRINT" {C/DNHC/DN}"CHR*(27)"T" 
1040 PRINT" <C/DN>{CLR>": RETURN 
1050 PRINT" {CLR> THE INSURGENTS LED BY TH 
E GREAT" 

1060 PR I NT "CATHY COURAGEOUS HAVE REBELLE 
D." 

1070 PRINT" {C/DN5WHAT WILL YOU DO?" 
1080 PRINT"A) GO INTO EXILE. ":PRINT"B) T 
URN OVER ALL CASH":PRINT"C) RESIST" 
1090 INPUTDS: IFD*< "A"0RD*>"C"THEN1090 
1100 IFD*="A"THEN1150 

liio ifd*="B"Thenm=m+r:k=r:r=o:ifk<.i*rt 

HENG0SUB660 

MORE-» 
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1120 IFD$="C H THENG0SUB660 

1130 I=I+INTCRND<S)*P/5> 

1140 RETURN 

1150 IFA*="A"THENPRINT"THE SEALS BLOCK Y 

OUR ESCAPE.": END 

1160 PR I NT "YOU ESCAPE BUT YOU STILL LOSE 

THE GAME." 
1170 REM "A LITTLE ROCK fe ROLL " 
1180 TEMPO 12 

1190 PLAY "V104T8U8X0":REM V1=GUITAR 
1200 PLAY "V204T5U8X0":REM V2=GUITAR 
1210 PLAY H V304T3U8X0":REM V3=DRUN 
1220 A$= H V302HBV103IRV201IGIGV103IDIGV20 
1 IGIGV103IDV303HDV103IBV201 IGIGV103I AIGV 
201IGIGV103IA" 

1230 B*= n V302HGV103IRV201IEIEV103IBI#FV2 
01IEIEV103IB V302HBV103IGV201IEIEV103I#F 
IEV201IEIEV103I#F H 

1240 C*="V303.HEV103IRV202ICICV103I604ID 
V201ICICV103IG04ICV202ICICV103IGV303QEV1 
03IBV202ICICV103IA" 

1250 D*="V303. H#FV103IRV202IDIDV103IA04I 
EV202IDIDV103IA04IDV202IDIDV103IAV302Q#F 
V104ICV202IDIDV104ID" 
1260 PLAYA*: PLAYA*: PLAYB*: PLAYB*: PLAYC*: 

playd*:playa* 

1270 RETURN 
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Tic-Tac-Toe 



This is a classic game of strategy for two players. The computer provides the playing board and acts as 
master of ceremonies. It checks the progress of the game after each move and either announces the winner or 
determines whether the game is a tie. 



Alteration — Change the second number in the 
COLOR statements of line 30 to change the 
color of the background (COLOR 0) and the 
border (COLOR 4). Use values from 1 to 16. 



10 REM TIC-TAC-TOE 

20 DIMM<9),K(9),T<7,2) 

30 C0L0R0,l:C0L0R4,5 

40 F0RW=1 T09 : READM ( W ) : NEXTW 

50 F0RW=0T07 : FOR J=0T02 : READT ( W , J ) : NEXT J , 

W 

60 F0RW=1T09:K(W)=0: NEXTW 

70 DATA1319, 1323, 1327, 1479, 1483, 1487, 163 

9,1643,1647 

SO DATA1, 2, 3, 4, 5, 6, 7, 8, 9, 1,4, 7, 2, 5, 8, 3, 6 

9 15 9 3 5 7 
^o'pRINT-CCLRKWHTJHELLO. YOU ARE ABOUT 
TO PLAY TIC-TAC-TOE" 

100 INPUT" {C/DN>WHO ARE YOU"; A*: PRINT: PR 
INT"{C/DN>"A*", YOU MAY PLAY WITH A FRIE 
ND. " 

110 PRINT"I WILL ANNOUNCE THE GAME.":INP 
UT"{C/DN>WHO DO YOU WANT TO PLAY WITH";B 
* 

120 PRINT" {CLR}"A*» AND "B*", YOU CAN TA 
KE" 
130 PRINT»TURNS BY ENTERING X OR IN TH 

E PLAYING" 

MORE-* 
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Programming Note — To help you with the 
number of times to press the spacebar in some 
program lines, here is a helpful summary. 
Where you see more than one large block of 
spaces, the number of spaces in each block is 
given, separated by a comma: 

Line 300 3, 1, 3, 1 
Line 310 11 
Line 320 3, 1, 3, 1 
Line 330 11 
Line 340 3, 1, 3, 1 
Line 380 38 
Line 420 38 



140 PRINT"GRID. EACH PLAYER MAY ENTER ON 

CE PER" 

150 PRINT"TURN. THE PLAYER WHO GETS THRE 

E IN A":PRINT"ROW WINS." 

160 PRINT"A ROW MAY BE HORIZONTAL, VERTI 

GAL OR":PRINT H DIAGONAL." 

170 PRINT" {C/DN>THE FIRST PLAYER USES AN 

X." 
180 PRINT"THE SECOND PLAYER USES AN 0." 
190 PRINT"{C/DNMC/DNXC/DN><<<<< PRESS 

ANY KEY TO CONTINUE >>>>>": GETKEYQ* 
200 PRINT" CCLR>WHEN YOU SEE THE SCREEN, 
YOU WILL SEE" 
210 PRINT"NUMBERS IN THE BOXES WHERE THE 

LETTERS" 
220 PRINT "WILL GO. TO PLACE YOUR LETTER, 

SIMPLY" 
230 PR I NT "TYPE THE NUMBER LOCATED WHERE 
YOU WANT" 

240 PRINT"YOUR LETTER TO GO, AND PRESS { 
RVON}RETURN{RVOF}. H 
250 PRINT" (C/DNMC/DNJWHO WILL GO FIRST, 

"A*" OR "B*; 
260 INPUTZ*: IFZ*< >A*ANDZ*< >B*THEN250 
270 I FZ*= A*THENF*= A* : S*=B* : G0T0290 
280 S*=A*:F*=B* 

290 PRINT"<CLR}{C/DNHC/DNXC/DNKC/DN}{ 
C/DNJ" 

300 F0RW=1T03:PRINTTAB(14) " 
0F> {RVON} {RVOF}":NEXTW 
310 PRINTTAB(14)"{RV0N> 



320 F0RW=1T03:PRINTTAB(14)" 
OFJ {RVON} {RVOF}":NEXTW 
330 PR I NTT AB ( 1 4 ) " { R VON } 



{RVON} {RV 
{RVOF} 

{RVON} {RV 
{RVOF} 

{RVON} {RV 



340 F0RW=1T03:PRINTTAB(14)" 

OF} {RVON} {RVOF}":NEXTW 

350 F0RW=1T09: POKEM ( W) , W+48: NEXTW 

360 t=o:fl=o 

370 PRINT"{HOME}"F*", ENTER YOUR MOVE"?: 

INPUTM* 

380 PRINT" {HOME} 
ii 

390 M=VAL <M*> : IFM>90RK (M) < >0THEN370 

400 P0KEM(M),24:K(M)=M:T=T+l:G0SUB490:lF 

FL=1THEN460 

410 PRINT" {HOME} "S* H , ENTER YOUR MOVE"?: 

INPUTM* 

420 PRINT" {HOME} 

a 

430 M=VAL ( M* ) : I FM >90RK (MX >0THEN4 1 



78 



Tic-Tac-Toe 



Alteration — Add introductory or victory mus- 
ic by taking a music routine from another game 
in mis book. Insert it at the beginning of the 
game or at the end by extending the subroutine 
of line 540. 



440 POKEM <M) , 15: K (M) =M: T=T+1 : 60SUE490: IF 

FL=1THEN460 

450 G0T0370 

460 PRINT" {HOME>"W*: INPUT" CC/DN5PLAY AGA 

IN";Q* 

470 IFLEFT*<Q*,1>= M Y"THEN60 

480 END 

490 F0RW=0T07 : A=PEEK <M<T<W,0)>): B=PEEK < M 

(T(W,1) ) ) :C=PEEK(M(T(W,2) ) ) 

500 IFA=24ANDB=24ANDC=24THENW*=F*+" WINS 

!»:fl=i:gosub540 

510 IFA=15ANDB=15ANDC=15THENW*=S*+" WINS 

!":fl=i:gosub540 

520 iffl=0andt=9thenfl=l:w*="tie game!" 

530 nextw: return 

540 f0ri=0t02:p0kem(t(w,i>),peek(m<t(w,i 

) )) +128: next! : return 
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Dice Race 



Here is a dice-simulation game using a computer-generated pair of dice. Two players take turns "rolling" 
the dice. Each player uses die values to move two cars toward a finish line. The first player with both cars over 
the line wins. 

10 REM DICE RACE 

20 DIMD US): PRINT" {CLR>" 

30 F0RX=1 T05 : READR* ( X ) : NEXT 

40 F0RX=1T018:READDCX) :NEXT:G0SUB610 

50 F0RX=1T06:D*(X)="{RV0N}":NEXT 

60 F0RX=1T06:F0RY=0T02 

70 D*<X)=D*(X)+R*(D(3#X+Y-2))+"<C/DNHC/ 

LFKC/LFHC/LF}" 

80 NEXTY,X 

90 C0L0R0,i:PRINTTAB<15) n <RV0NHWHT>DICE 

RACERS" 
100 PRINT" {C/DNJTHIS GAME IS FOR TWO PLA 
YERS." 

110 INPUT"{C/DN}PLAYER ONE'S NAME"JN1* 
120 INPUT "PLAYER TWO'S NAME";N2* 
130 PRINT" <C/DN> YOU EACH HAVE TWO CARS T 
DRIVE BY" 

140 PRINT"MOVING THEM ACCORDING TO THE T 
HROW" 

150 PRINT"OF THE DICE. YOU CAN MOVE ONE 
CAR THE" 
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Programming Note — To help you with the 
number of times to press the spacebar in some 
program lines, here is a helpful summary: 

Line 290 6 
Line 300 6 
Line 490 12 



160 PR I NT "VALUE OF BOTH DICE OR SPLIT TH 

E DICE" 

170 PRINT"AND MOVE BOTH CARS." 

180 PRINT" {C/DN>YOU CANNOT MOVE MORE THA 

N THE VALUE OF":PRINT"THE DICE." 

190 PRINT" {C/DN>THE FIRST PLAYER TO HAVE 

BOTH CARS" 
200 PRINT"ACROSS THE FINISH LINE WINS. I 
F BOTH" 
210 PRINT "PLAYERS GET ACROSS IN THE SAME 

ROUND, " 
220 PRINT"THE ONE WHOSE CARS ARE FARTHES 
T WINS " 
230 PRINT" <C/DN>AFTER THE DICE ROLL, YOU 

WILL BE ASKED" 
240 PRINT"HOW MUCH YOU WANT TO MOVE YOUR 

FIRST" 
250 PRINT-CAR. YOU MUST ENTER ONE OF THE 

DIE OR" 
260 PRINT "THE SUM OF THE DICE. THE COMPU 
TER WILL" 
270 PR I NT "CALCULATE THE MOVE FOR CAR TWO 

a 

280 PRINT" <C/DN>HIT ANY KEY TO START" :6E 

TKEYQ* 

290 R1*="{RV0NMGRY2> {WHTJ {GRY2J 

n 

300 R2*="{RV0NKGRY2> " 

310 PRINT" {HOME} {HOMEJ «QLR> "TAB (14) iRl* 
320 PRINTTAB ( 14) "{RV0N}CGRY2>*F-I-N-I-S- 
H'X - " 

330 F0RX=1T01 1 : PRINTTAB (14)5 Rl*: PRINTTAB 
(14);R2*:NEXT 

340 IFLEN(N1*) >6THENN1*=LEFT*(N1*,6) 
350 IFLEN(N2») >6THENN2*=LEFT*(N2*,6) 
360 PRINT" { WHT} "TAB ( 14) Nl*5 TAB (21 ) N2*" {H 
OME>" 

370 F0RX=lT04:SPRITEX,i:NEXT 
380 WINDOWO, 0,13,23 

390 F0RP=1T02: PRINT" {C/DNMHOMEHC/DNKW 
HT} PLAYER "P 

400 D1=INT (RND ( 1 )*6) +1 : D2=INT (RND ( 1 )*6) + 
1 

410 CHAR1,1,4,D*(D1) ZCHAR1, 1,9,D*(D2) 
420 D=D1+D2:PRINT"{C/DNKC/DN}H0W MANYtC 
/DNKC/DN}" 

430 PRINT" tC/UP}CAR #"P*2-i 5 : INPUT" i 

C/LFHC/LFHC/LF}{C/LF}"S<3* 
440 Q1=VAL (G$) : IF01ODANDQ1OD1ANDQ1OD2 
ANDQ1O0THEN430 

450 Q2=D-Ql:M(P^2-l)=Ql:M(P*2)=Q2:NEXTP 

MORE-* 
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Alteration — To move the cars farther with 
each turn (to shorten the game), change line 
460 to 460 FOR X=1 TO 4: MOVSPR X<+, 
-4*M(X): NEXT 



Programming Note — Make the graphic char- 
acter in line 580 by typing SHIFT-Q. 



Alteration — Change the color of the cars by 
changing the third number in each SPRITE 
statement in line 710. For example, 710 
SPRITE 1,0,3: etc. will change Sprite 1 to red. 



460 F0RX=lT04:M0VSPRX,+0,-2*M<X):NEXT 

470 FORX= 1 T03STEP2 : 1 FRSPPOS i X , 1 )< 63ANDRS 

PPOS <X+1 , 1 ) <63THENF=1 

430 NEXT:IFFOlTHEN390:ELSEF=0 

490 PRINT" {HOME} ":F0RX=1T020: PRINT" 

" : NEXTX 
500 P1=RSPP0S(1,1>+RSPP0S<2,1> 
510 P2=RSPP0S(3,1)+RSPP0S<4,1) 
520 IFPi=P2THENPRINTNi* H AND "N2*" TIED! 
" : G0T0550 

530 IFPKP2THENPRINTN1*" WINS! " :G0t 0550 
540 PRINTN2*" WINS!" 

550 PRINT" {C/DNHC/DN>PLAY AGAIN" :PRINT» 
<Y/N)? B 

560 GETKE YQ* : I FQ*= ■ Y ■ THENG0SUB720 : G0T03 1 


570 
580 
590 
5,5 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 



I FQ*<> " N H THEN560 : ELSEEND 

DATA" ","• "," • »," • ","• •" 

DATA1, 3, 1,4, 1,2, 4, 3, 2, 5, 1,5,5,3, 5, 5, 



REM DRAW CAR 
C0L0R4,10:GRAPHIC1,1 
F0RX=1T04: CIRCLE1 , 12, 14, 3,4 
PAINT1,12,14:DRAW1,16,8 TO 16,15 
B0X1, 10,3, 14,8,0,1 
BOXi, 8, 4, 16,5,0,1 
BOXI, 6, 14,8, 17,0,1 
BOXI, 16, 14, 18, 17,0,1 

char1 ,1,1, chr*<x+48> , 1 

ssh ape a* , 1 , 1 , 24 , 22 : sprs av a* , x 

scnclr:next 

sprite1,0,10:sprite2,0,14:sprite3,0, 

7:SPRITE4,0,8 

720 F0RX=1T04:M0VSPRX,115+25*X,220:NEXT 

730 GRAPHICO,!: RETURN 
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Here's your chance to be the alien! From your space capsule, watch the earth come into view. Choose your 
options carefully. Will you invade or come in peace? 



Alteration — Try developing a scrolling in- 
troduction to the game in lines prior to line 20. 
Borrow the screen-scrolling techniques from 
Space Maneuvers. 



Programming Note — To help you with the 
number of times to press the spacebar in some 
program lines, here is a helpful summary. 
Where you see more than one large block of 
spaces, the number of spaces in each block is 
given, separated by a comma: 

Line 80 3,8 
Line 760 4,4 



10 REM ALIEN 

20 PL=0:G0SUB810:CL*="{H0MEHC/DNMC/DN> 

,, +CHR*<27)+"Q{C/DN>"+CHR*(2?)+ H Q{C/UP> B : 

DN*="{HOMEHC/DNHC/DNXC/DNHC/DN>" 

30 FQRX= 1 T04 : RE ADG* < X ) : NEXT 

40 F0RX= 1 T04 : RE ADH* ( X ) : NEXT 

50 F0RX= 1 T04 : RE ADO* ( X ) : NEXT 

60 PRINT" {C/DN>{HOME>{WHT>COMMUNICATION: 
ii 

70 PRINT" {C/DN>{C/DN>{C/DNHC/DNMWHT>RO 

CKET ORIENTATION:" 

30 PRINT" {RVONJ F<RV0F> SPEED: 
ii 

90 PRINT" <RV0N> {RED? {WHT> IKRVOF} W 
ARP DRIVE."" 

100 PRINT" {RV0N> <RED> CWHTJ E{RV0FJ AL 
ERT STATUS:" 

MORE-* 
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Alteration— Change the likelihood of Earth 
surrendering by changing .95 in line 450 to a 
different value. A smaller number means a 
greater chance of surrender. 



110 PRINT" <RV0N> {RED> (WHT> L{RVOF>" 

120 PRINTDN*:F0RX=1T04:PRINTTAB(20> ;G*(X 

) : NEXT 

130 PRINTCL*"{WHT>EARTH ON MONITOR." 

140 SLEEP3 

150 PRINTCL*"A-INVADE B-FLEE C-PEACE" 

160 PRINT"WHY DO YOU COME (LETTER)?" 

170 GETKEYC*:IFC**"A"THEN210 

180 IFC*="B"THEN540 

190 IFC**"C"THEN750 

200 G0T0170 

210 PRINTCL*" WOULD YOU RECONSIDER (Y/N>? 

n 

220 GETKEYQ*:IFQ*= H Y B THEN150:ELSEIFQ*<>" 

N"THEN220 

230 PRINTCL*"WE MUST DEFEND OURSELVES ! ■ 

240 S0UND1, 20000, 400, 0,10000,350 

250 PRINTDN*:PRINTTAB(20> "<C/DNHC/DNKC 

/DNHRVONKRED} {WHTJRED ALERT! {RED} { 

WHTHRVOF}" 

260 SLEEPS: SOUND 1 , 8000, 300, 2, 5000, 1200 

270 PRINTCL*"THEY ARE FIRING!" 

280 C0L0R4 , 3 : SLEEP3 : C0L0R4 , 1 

290 PRINTCL*"S-SHIELDS UP OR F-FLEE ?" 

300 GETKEYQ*:IFQ**"F"THEN540:ELSEIFQ*<>" 

S"THEN300 

310 S=S+1 

320 I FRND ( 1 )< . 5ANDS >3THEN500 

330 PRINTCL*"SHIELD INTACT" :SLEEP3 

340 PRINTCL*"A-ATTACK B-FLEE C-PEACE" 

350 PR I NT "WHAT NOW (LETTER)?" 

360 GETKE YQ* : I FQ*- ■ A H THEN400 

370 IFQ*»"B n THEN540 

380 IFQ**"C"THEN750 

390 G0T0360 

400 PR I NTCL*: INPUT "WHICH CITY" J N* 

410 A*RND<1) 

420 IFA<.3THENPRINTCL*" ATTACK FAILED": GO 

T0440 

430 PRINTCL*JN*" DESTROYED!" 

440 SLEEP3 

450 IFA>.95THEN SCNCLR:GRAPHICO:PRINT"<H 

OME>{CLR> EARTH SURRENDERS! YOU WIN!":STO 

P 

460 IFA>.05THEN230 

470 GRAPHICO:PRINT"{HOMEHCLR>I CANNOT L 

ET YOU KILL INNOCENTS!" 

480 PRINT "YOUR LIFE SUPPORT WAS TURNED O 

FF.": PRINT" YOU LOSE!" 

490 STOP 

500 G0SUB770:GRAPHIC0: PRINT" {HOMEMCLR>Y 

OUR SHIELDS DID NOT HOLD OUT!" 
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Alteration — Change the likelihood of hitting a 
star during Warp Out by changing .75 in line 
680 to a different value. A smaller number 
means you are more likely to bit one. 



Programming Note — Make the graphic char- 
acter in line 870 by typing SHIFT-Z. 

Programming Note — Make the graphic 
characters in line 890 by typing SHIFT-A, 
SHIFT-X, £, SHIFT-W (twice) and SHIFT-S. 



510 PRINTTABU1);"*** YOU LOSE! *#*" 

520 STOP 

530 REM HYPERSPACE 

540 PRINTCL*:BOXO, 2, 11,99,99,0,1 

550 PRINTCL* H <WHT>ENTER X COORDINATE"; : I 

NPUTX* 

560 INPUT-ENTER Y COORDINATE" J Y* 

570 PRINTCL*" PRESS 'W* TO WARP OUT" 

5S0 GETKE YQ* : I FQ*< > " W " THEN580 

590 PR I NTDN* : FORX= 1 T04 : PR I NTTAB ( 20 ) j H* ( X 

) : NEXT 

600 F0RX=2T099STEP4:DRAW2,49,44 TO X,ll: 

NEXT 

610 F0RY=11T099STEP4:DRAW2,49,44 TO 99, Y 

:next 

620 f0rx=99t02step-4:draw2,49,44 to x,99 

5NEXT 

630 F0RY=99T011STEP-4:DRAW2,49,44 TO 2,Y 
:NEXT 

640 F0RW=0T09 : FORT= 1 T0200 : NEXTT 
650 PRINTCL*"{WHT>WARP H STR*<W) :NEXTW 
660 F0RW=9T00STEP- 1 : FORT= 1 T0200 : NEXTT 
670 PRINTCL*»{WHTJWARP"STR*<W) :NEXTW 
680 I FRND ( 1 ) > . 75THEN730 
690 PL=1 : BOXO, 2, 1 1 , 99, 99, 0, 1 : G0SUB930 
700 PRINTDN*:F0RX=1T04:PRINTTAB(20) J0*(X 
) : NEXT 

710 PRINTCL*"{WHT>OMEGA ON MONITOR." 
720 PRINT-WELCOME TO OMEGA 5. . . A SAFE E 
SCAPE ! " : SLEEP3 : STOP 
730 G0SUB770 

740 GRAPHICO: PRINT" < HOME ><CLR> YOU HIT A 
STAR! YOU L0SE!":SLEEP3:ST0P 
750 PRINTCL*"WELCOME TO PLANET EARTH." 
760 PRINT" {GRNMRVON> CWHTJYOU WIN!K 
GRNJ ":SLEEP3:ST0P 
770 SCNCLR : PR I NT " ***DESTRO YED*** " 
S0UND1 , 20000, 1000, 2, 20000, 0, 3 

sleepi:dowhilev>o:v=v-.4:loop 

RETURN 

REM GRAPHIC DISPLAY 

REM SET UP CONTROL PANEL 

WIND0W0,13,39,23 

COLOR 0,l:C0L0R4,l:C0L0Rl,7 

COLOR 2,2:C0L0R3,10:GRAPHIC4,1,13 

C0L0R3, 14:F0RX=28T034STEP2 

CHAR3 , X , 6 , "♦ " : NEXT : C0L0R3 , 5 

B0X2, 110, 18, 140,40:B0X2, 108, 16, 142,4 



780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

2 

890 

,2 



C0L0R2, 1 1 : CHAR2, 28, 3, "**£00* n : C0L0R2 

MORE-» 
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Programming Note — Make the graphic char- 
acter in line 900 by typing COMMODORE-D. 



900 F0RX=28T034 : F0RY=8T01 1 : Z=RND ( 1 ) *15+2 

: C0L0R3, 2: CHAR3, X, Y, ■ ■» : NEXTY, X 

910 C0L0R2,8:B0X2, 112,65, 141, 97:C0L0R2, 2 

920 REM DRAW EARTH 

930 C0L0R3, 10: IFPL=1THENC0L0R3, 13:C0L0R1 

,10 

940 F0RX=1T020: RX=RND ( 1 ) *9?+2: RY=RND ( 1 ) * 

88+11: DRAW2 , RX , RY : NEXT 

950 CIRCLE 1,50,60, 17, 23:PAINT1, 50, 50 

960 CIRCLE 2,50,60,17,23 

970 CIRCLE 2,50,60,17,23 

980 CIRCLE 2,50,33,5,8,135,225 

990 PAINT 2,50,38 

1000 CIRCLE 2,50,87,5,8,315,45 

1010 PAINT 2,50,80 

1020 BOX 2,1,10,100,100:BOX2,102,10,150, 

100 

1030 IFPL=1THENC0L0R1,10:C0L0R2,2:C0L0R3 

,13 

1040 DRAW 3,51,44 TO 60,43 TO 61,59 TO 5 

9,59 TO 59,62 

1050 DRAW 3,60,63 TO 63,66 TO 66,66 TO 6 

3,75 TO 59,71 

1060 DRAW 3,59,70 T06O,68 TO 60,66 TO 55 

,62 

1070 DRAW 3,54,62 TO 53,62 TO 53, 65: DRAW 

3,52,62 TO 50,59 
1080 DRAW 3,50,58 TO 50,55 TO 45,49 TO 4 
2,49 TO 41,51 TO 39,49 

1090 DRAW 3,43,49 TO 41,46 TO 41,45 TO 4 
3,43 TO 44,43 TO 46,46 TO 51,44 
1100 PAINT 3,55,55 

1110 DRAW 3,40,63 TO 37,66 TO 36,67 
1120 IFPL=OTHENRETURN 
1130 REM DRAW OMEGA PLANET 
1140 DRAW3,35,65 TO 37,54 TO 39,51 TO 42 
,53 TO 47,48 TO 55,47 

1150 DRAW3,55,47 TO 52,53 TO 60,63 TO 52 
,66 TO 44,62 TO 39,68 TO 35,65 
1160 PAINT3,40,60:DRAW3,64,71T057,75T047 
, 78T046 , 75T049 , 69T053 , 73T064 , 7 1 
1170 PAINT3,50,76 
1180 C0L0R3,S:CIRCLE3,80,35,5,7 
1190 CIRCLE2,80,35,6,8:PAINT3,80,35 
1200 RETURN 

1210 DATA "EARTH" , "SUBLIGHT" , "OFF" , " {GRN> 
GREEN " 

1220 DAT A" OMEGA SYSTEM" , "HYPERSP ACE", "ON 

»,"{YELO> YELLOW 
1230 DATA"OMEGA SYSTEM" , "SUBLIGHT »,"0F 
F","{GRN>GREEN ■ 
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Shoot The Rapids 



Journey down a winding river in your kayak. The farther you go, the more treacherous the river. This 
fast-paced game requires concentration and skill. Use a joystick or the < and > keys (unshifted) to paddle 
safely down the raging river. You'll hear a beep each time the river narrows. 

If you crash, your score is displayed along with commentary. Press any key to play again or RUN/STOP to 
quit. 



Alteration — For a shorter, and quieter, ver- 
sion, leave out the introductory music of lines 
30-160. The game will play the same. Remem- 
ber to number remaining lines as shown so 
GOSUB and GOTO statements still work. 



10 REM SHOOT RAPIDS 

20 SCNCLR 

30 TEMPO 16: REM WALTZ IN C BY CARCASSI 

40 PLAY H V104T5U8X0":REM V1=GUITAR 

50 PLAY "V204T5U8X0":REM V2=GUITAR 

60 PLAY "V304T5U8X0":REM V3=GUITAR 

70 A*="V103QG02.HC V204IRIEICIE V103QG" 

SO B*="V103.HG V204IRIEICIE V103QG" 

90 C$="V103.HD V204IRIFIBIF V103QG" 

MORE-» 
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Programming Note — The blank part of line 
190 is equal to 9 spaces. 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 



D*="V102.HG 
E$="V103.HC 
F*="V102.HA 
G*="V103.HD 



V2G4IRIFIBIF V103QG" 
V204IRIEICIE V103QG" 
V204IRIEICIE V103QA" 
V204IRI#FICI#F V1Q3QA" 



h*= " v 1 02hgv204hgv303hb ■ 

play a*: play b*: play c*: play d* 

play e*:play f*: play g*: play h* 

c0l0ro,2:c0l0r4,6:v0l15 

sc*="{h0mekc/dn}"+chr*<27)+"i" 

r*="{bluekrvon> ":n=100:ky= 



158:LL=2 

200 KS=21 2 : RT=44 : LT=47 : D=0 : V=0 : A= . 4 : B= . 6 
210 L=1924:LD=40:C0=39:BL=160:R=16:UL=28 
220 PRINT" {CLR> "TAB (10) " {RED} CRVONJSHOOT 

THE RAPIDS! M" 
230 PRINT" {C/DNKC/DN>YOU ARE ABOUT TO S 
HOOT THE RAPIDS IN" :PRINT"YOUR KAYAK." 
240 PRINT" <C/DN>CONTROL YOUR PADDLES WIT 
H THE COMMA AND" 

250 PRINT"PERIOD KEYS— THINK OF THEM AS 
< AND >.» 

260 PRINT" £C/DN>SHOOT A FAST OR A SLOW R 
IVER (F/S)? "; 

270 GETKEYQ*: IFQ*O"F"ANDQ*O"S"THEN270: 
ELSEPRINTQ*: IFQ*="S"THENV=1 
230 PRINT "{C/DNJKEEP BETWEEN THE RI VERBA 
NKS AND BE" 
290 PRINT "CAREFUL— WHEN THE BEEP SOUNDS, 

THE" SPRINT "RIVER NARROWS!" 
300 PRINT" {C/DNJHIT ANY KEY TO START ":GE 
TKEYQ* 

310 REM PRINT SCREEN 
320 PRINT" <CLR>":C0L0R0, 14 
330 FORX= 1 T023 : PR I NTT AB ( RND (1 ) *C0 ) " { GRN } 
#" : PRINT" {C/UPJ "TAB (R) R*: NEXT 
340 S0UND1 , 0, 0: S0UND1 , 30000, 4000, 2, 30000 
,0,3 

350 REM START LOOP 
360 IFVTHENF0RI=1T0200:NEXT 
370 K=RND < 1 ) : IFK>ATHEN400 
380 IFR>LLTHENR=R-1 
390 G0T0420 

400 ifk<bthen420 

410 ifr<ulthenr=r+1 

420 printsc*stab(rnd<1>*c0) "{grn}*" 

430 print" {c/up}»tab(r)r*:pokel+ld,bl 

440 p=peek <ks) : ifp=ltthenl=l-1 : g0t0460 

450 ifp=rtthenl=l+1 

460 ifpeek(l)oblthen520 

470 pokel, ky: d=d+1 : ifd>hsthenhs=d 

480 print"{homekblk>score:"d"{c/lf> hi 

gh: b hs"{C/lf> " 
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Alteration — To change the sound of the beep, 
experiment with numerical values in the 
SOUND2 statement of line 500. 



Alteration— Change the commentary in lines 
570 to 600 to personalize them. 



490 CT=CT+1 

500 IFCT=NTHENR*=LEFT*(R*,LEN<R*>-1>:CT= 

0: S0UND2, 40000, iO, 0,0,0, l:60T0340 

510 G0T0360 

520 REM CRASH 

530 P0KEL,90:C0L0R4,3 

540 F0RI=15T00STEP-. 03: VOL I : NEXT: SOUND 1 , 

0,0 

550 PRINT" { CLR >{BLK> SCORE :"STR*( INT (D>> + 

H II 

560 IFD>HSTHENHS=D 

570 IFD<100THENPRINT"I THINK YOUR KAYAK 

HAS A LEAK. " : G0T0630 

580 IFD<200THENPRINT H Y0UR PADDLE MUST HA 

VE BROKEN. ":GOT0630 

590 IFDO00THENPRINT "SNAGGED A TREE LIMB 

?":G0T0630 

600 IFD<400THENPRINT"I SEE YOU HAVE DONE 

THIS BEFORE. ":G0T0630 
610 IFD<500THENPRINT"Y0U MUST BE PART OT 
TER ! " : G0T0630 

620 PRINT" INCREDIBLE PERFORMANCE!!" 
630 PRINT"{C/DN>HIT ANY KEY TO RESTART ( 
STOP TO EXIT)" 

640 F0RI=1T010: GETQ*: NEXT: 6ETKEYQ*: G0T01 
70 
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Night Sky 



Yikes! Out of the night sky come alien ships on a collision course with you! You get flight control as you 
view out into space. Use a joystick to focus your lasers on the alien attackers. You must hit each attacker five 
times to eliminate it. Warning! Each alien comes at you faster than the previous one. 



Alteration — Change the value of the number 
following T in line 40 to another number from 1 
to 9. This changes the instrument playing the 
music. 



Alteration — To change the difficulty, change 
the starting range for the invaders — variable 
RA in line 90. 



10 REM NIGHT SKY 

20 SCNCLR 

30 TEMPO 8: REM SPACE MUSIC 

40 PLAY "V104T5U8X0 M :REM V1=GUITAR 

50 A*=»V103QCHGSCSCSCQAHG" 

60 B*="V103SCSCSCQAHGSESESEHD" 

70 PLAY A*: PLAY B*:PLAY A*: PLAY B* 

80 REM NIGHT SKY 

90 G0SUB660:RA=9000:X=RND(0):S=1 

100 C0L0R1,2:C0L0R0,1:C0L0R4,1 

110 GRAPHIC1 , 1 : F0RI=1T0100: X=RND ( 1 ) *320: 

Y=RND ( 1 ) *200 : DR AW 1 , X , Y : NEXT 
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120 f0rx=1t03:b0x1,80-x*10,60-x*8,240+x* 
io,120+x*io:next 

130 B0X1,0,0,319,199 

140 DRAW1,0,0 TO 70,52:DRAW1,0, 199 TO 70 

,130 

150 DRAW1, 319,0 TO 250,52:DRAW1 ,319, 199 

TO 250,130 

160 C0L0R1,6:CIRCLE1, 160,90,20, 15 

170 CIRCLE1, 160,90,8,6 

180 DRAW1, 160,73 TO 160,107 



Alteration — To make die aliens more evasive, 
change line 230 to 230 MOVSPR S, +(INT 
(RND(1)*12)-6), +(INT(RND<1)*12)-6) 



Alteration — Make your steering ability a bit 
faster by changing the value 3 in lines 270-340 
to the value 4. Don't change the minus signs. 



L>*180 



280 DY=-3:DX=-3:G0T035C 

290 DX=-3:G0T0350 

300 DY=3:DX=-3:G0T0350 

310 DY=3:G0T0350 

320 DY=3:DX*3:G0T0350 

330 DX=3:G0T0350 

340 DX=3:DY=-3:60T0350 

350 MOVSPR S,+DX,+DY 

360 IF HD>0THENHD=HD-l:G0T0380 

370 X=BUMP<1):IFJ0Y(2)AND128THEN S0UND1, 

30000 ,15,1,15000,1 000 : HD=2 : G0SUB450 

380 IFH=5THENG0T0580 

390 RA=RA- <5*SH+10) : IFRA>9000-1500*STHEN 

230 

400 IFS=6THEN520 

410 MOVSPR <S+1),RSPP0S(S,0),RSPP0S(S,1) 

420 SPRITES, 0:S=S+1! SPRITES, 1 

430 G0T0230 

440 REM HIT 'EM 

450 I FBUMP ( 1 ) =OTHENRETURN 

460 SPRITES, 1, 3: H=H+l:SC=SC+125 

470 S0UND2 , 30000 ,30,1, 20000 , 800 , 3 

480 HX=RND ( 1 ) *70-35 : HY=RND < 1 ) *40-20 

490 F0RX=1T04:M0VSPRS, +HX, +HY:F0RY=1T020 

:nexty,x 

500 sprites, 1,4: return 

510 REM CRASH 

520 S0UND2 , 30000 , 200 ,1,1 0000 , 1 00 , 3 

MORE-» 
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530 GRAPHIC0,1:F0RX=5T019:F0RY=1T050:NEX 




T : COLORO , 8 : FORY= 1 T050 : NEXT : COLORO , 3 




540 CHARi , 13, X, " i WHT>#**CRASH***" : NEXT 




550 SPRITES, 0:SPRITE8,0 




560 PRINT" {HOME) YOUR FINAL SCORE WAS'SC: 




PRINT-AND YOU GOT"SH"SHIPS. ":G0T0630 




570 REM GOT 'EM 




580 C0L0R4 , 2 : S0UND2 , 30000 ,100,1,1 0000 , 20 




0,3: SPRITES, 




590 sleepi:color4,i:sh=sh+1:s=i:h=o:ra=9 




000 


Alteration — To deal with fewer than 10 ships, 


600 IFSH<10THENSLEEP2:G0T0210 


change the 10 in line 600 to a smaller number, 


610 GRAPHIC0,l:C0L0R4,6:SPRITE8,0 


such as 5. 


620 F0RX=5T019: CHARI, 8, X, "YOU'VE SAVED T 




HE EARTH ! ! ! " : NEXT 




630 CHARI, 0,22, "PLAY AGAIN (Y/N)?» 




640 GETKEYQ*: IFQ*="Y"THENRUN:ELSEIFQ*<>" 




N"THEN640 




650 END 




660 PRINT" {CLRHWHTKRVON}NIGHT SKY" 




670 PRINT "{C/DN> YOU ARE ABOUT TO PROTECT 




THE NIGHT SKY" 




680 PRINT"FROM KAMIKAZE INVADERS. YOU MU 




ST HIT AN" 




690 PRINT "INVADER FIVE TIMES TO DESTROY 




IT AND YOU" 




700 PRINT"MUST DESTROY TEN SHIPS TO WIN. 

ii 




710 PRINT" <C/DN>PRESS THE FIRE BUTTON TO 




FIRE LASERS." 




720 PRINT "STEER YOUR SHIP WITH JOYSTICK 




#2." 




730 PR I NT "PULL BACK IF ENEMY IS ABOVE YO 




UR SITES," 




740 PR I NT "PUSH FORWARD IF ENEMY IS BELOW 

a 




750 PRINT" {C/DN>BE CAREFUL... EACH ENEMY 




SHIP COMES IN" 




760 PRINT "FASTER THAN THE LAST!" 




770 PRINT" <C/DN>GOOD LUCK." 




780 PRINT" CC/DN>HIT ANY KEY TO START. ":G 




ETKEYQ* 




790 REM INVADERS 




800 COLOR 0,1: COLOR 4,1 




810 GRAPHIC 1,1 




820 DRAW1 , 9, 8T09, 1 1 : DRAW1 , 14, 8T014, 11 




830 B0X1,11,9,12,10:SSHAPEA*,0,0,23,21 




840 SPRSAV A*,l:SPRITEl,0,4,l 




850 SPRSAVA*, 2: SPRITE 2,0,4,1,1,1 




860 SCNCLR 




870 B0X1 ,3,4,4, 14: B0X1 , 19, 4, 20, 14 




880 B0X1,5,9,18,10:B0X1,8,6,15,11,0,1 
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890 B0X0,9,7,10,8:B0X0,13,7,14,8 

900 SSHAPE A*, 0,0, 23, 21 

910 SPRSAV A*,3:SPRITE3,0,4,1 

920 SPRSAV A*, 5: SPRITES, 0,4, 1,1,1 

930 SCNCLR 

940 B0X1,0,1,2,15,0,1:B0X1,21,2,23,15,0, 

1 

950 B0Xl,3,8,20,10,0,l:B0Xl,7,4,16,ll,0, 

1 

960 CIRCLE0,9,7,l,l:PAINT0,9,7 

970 CIRCLEO, 14,7, l,l:PAINT0, 14,7 

980 SSHAPE A*, 0,0, 23, 21 

990 SPRSAV A*,4:SPRITE4,0,4,1 

1000 SPRSAV A*,6:SPRITE6,0,4, 1,1,1 

1010 SCNCLR 

1020 CIRCLE1,13, 10,1, 1,0, 0,0,5:SSHAPEE*, 

0,0,23,21 

1030 SPRSAVE*, 8: SPRITE8, 0, 6: RETURN 
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Space Maneuvers 



You're the pilot of a spaceship on a secret mission, traveling through crowded space traffic. To score, 
avoid collisions with asteroids, mercenary drones and dangerous enemy spacecraft. The deeper you penetrate 
space, the more difficult your task! Use your < and > keys (unshifted) to maneuver left and right. Saving the 
galaxy requires 600 points. 



Programming Tip — Variable SC$ in line 40 
provides for downward scrolling. This is just 
one of many ways to do it with the Commodore 
128. 

Programming Note — Make the graphic 
characters in line 70 by typing 
COMMODORE-* and SHIFT-£. 



10 REM SPACE MANEUVERS 

20 G0T0270 

30 L=1924:KS=212:RT=44:LT=47 

40 SC*="{H0ME}{C/DN}"+CHR*<27)+»I" 

50 PRINT" <CLR}<WHT> » : C0L0R4, 1 : COLORO, 1 

60 PRINTSC*; TAB (INT <RND( 1>*33> ) "O O" 

70 IFPMOOANDRND ( I ) >. 8THENPRINT" {C/UP> "T 

ABCRNIXDftSa) 11 ^" 

80 IFP>300ANDRND(1) >.9THENPRINT"{C/UP}"T 

AB<RND<1)*37)" ,, W" 
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Programming Note — Make the graphic 
characters in line 80 as in line 70, except you 
type SHIFT-Z between the symbols of line 70. 

Alteration — Experiment with different graph- 
ic characters in lines 70 and 80 to create differ- 
ent spaceships. 

Alteration — To increase the number of 
spacecraft and make the game more difficult, 
decrease .8 in line 70 or .9 in line 80. 

Programming Note — Compare the way ob- 
jects are placed at the top of the screen in this 
program (lines 60-80) to the methods used in 
Shoot The Rapids or Le Mans. Which do you 
prefer? 



90 P=P+i:IFP>599THEN230 
iOO PRINT"{HQME}SCORE:"P 

M=PEEK <KS) : POKEL+40, 32 

IFM=LTTHENIFL< 1943THENL=L-1 

I FM=RTTHEN I FL > 1 904THENL=L+ 1 

IFPEEK <L)< >32THEN160 

P0KEL,65:G0T060 

SOUND 1 , 20000 , 2000 ,1,1 0000 ,5,3 

F0RX=15T00STEP-. 1 : VOLX 

SCNCLR 

CHAR 1,15,12," ****CRASH#*** " , : GOTO 



110 
120 
130 
140 
150 
160 
170 
180 
190 
240 
200 
210 
220 
230 
240 



IFF=1THENC0L0R4, 8: F=0: G0T0220 

I FF=0THENC0L0R4 , 3 : F= 1 

NEXT: SOUND 1,0,0 

CHAR 1,10, 12, "THE GALAXY IS SAVED!" 

CHAR 1,2,14, "HIT ANY KEY TO RESTART 
(STOP TO QUIT)" 

250 CHAR 1,16, 16, "SCORE =": PRINT P 
260 F0RX=1T010:GETQ*: NEXT rGETKEYQ*: RUN 
270 PR I NT "<CLR}": PR I NT "PREPARE FOR A JOU 
RNEY THROUGH SPACE." 

280 PRINT"AVOID ASTEROIDS, DRONES, AND S 
PACESHIPS. " 

290 PRINT"USE THE COMMA AND PERIOD KEYS 
(THINK OF" 

300 PRINT "THEM AS < & > > TO MOVE LEFT A 
ND RIGHT." 

310 PRINT" {C/DN>HIT ANY KEY TO RESTART" 
320 GETKEYQ*:G0T030 
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Missile Defense 



You must save your cities from incoming enemy missiles. Use your joystick to move your laser sight ( + ) 
and press the fire button to fire your laser. The game features five levels of difficulty to keep you challenged. 
You must be quick and accurate to survive. 

10 rem missile defense 

20 forx=ito?:read d<x>:next 

30 DATA -4,4,-3,3,-2,2,-1 

40 G0SUB590 

50 C0L0R1,1:F0RX=1T04:GSHAPE CT*,X*75-45 

,144: NEXT 

60 F0RX=1T03: SPRI TEX, l: NEXT :C=4 

70 REM START LOOP 

80 F0RX=1T0NM:M0VSPRX,+D(X),+1 

90 SX=RSPP0S(X,0):SY=RSPP0S(X,1) 

100 IFSY>218THENG0SUB390 
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Programming Tip — Lines 150 and 160 read 
the joystick then branch to lines 180-250 to 
move the laser sight. 



Alteration — Increase values 5 and 6 to larger 
numbers in lines 180-250 to make it easier to 
move your laser sight. Decrease those numbers 
for a more challenging game. Don't change 
plus or minus signs. 



IFSX<16 THEN MOVSPRX, 335, SY 

IFSX>335 THEN MOVSPRX, 16, SY 

NEXT 

REM CHECK FOR FIRING 

J=JOY (2) : IF < JAND128) THENJ-J-128: GOSU 



110 

120 

130 

140 

150 

B510 

160 ON J GOTO 180,190,200,210,220,230,24 

0,250 

170 G0T0260 

180 M0VSPR8,+0,-6:G0TQ260 

190 M0VSPR8,+5,-5:G0T0260 

200 MO VSPR8 , +6 , +0 : G0T0260 

210 M0VSPR8 , +5 , +5 : G0T0260 

220 MO VSPR8 , +0 , +6 : G0T0260 

230 M0VSPR8 , -5 , +5 : G0T0260 

240 M0VSPR8,-6,+0:G0T0260 

250 M0VSPR8 ,-5,-5: G0T0260 

260 CHAR1,0,0, H SCORE: "+STR*< SO :CHAR1,0 

, 1, "CITIES: "+STR*(C) 

270 IFC<10RSO5000THEN290:ELSE80 

280 REM GAME OVER 

290 GRAPHICO, 1 : F0RX=1T08: SPRITEX, 0: NEXT 

300 F0RY=5T018 

310 IFSO5000THEN CHAR1,8, Y, "****CITIES 

ARE SAFE ****":G0T0330 

320 CHAR1,8,Y,"****CITIES DESTROYED****" 

330 NEXT 

340 SLEEP2:CHAR1, 10,20, "FINAL SCORE: "+ST 

R$ ( SC ) 

350 CHAR1, 1,22, "PLAY AGAIN <Y/N>?" 

360 GETKEYQ*:IFQ*="Y"THENRUN:ELSEIFQ*<>" 

N"THEN360 

370 END 

330 REM EXPLODE CITY 

390 BX=RSPPOS(X,0) 

400 MOVSPRX, INT (RND ( 1 ) *150+101 ) , 

410 CX=0: IFBX>38THENIFBX<85THENCX=1 

420 IFBX>113THENIFBX<160THENCX=2 

430 IFBX>188THENIFBX<235THENCX=3 

440 IFBX>263THENIFBX<310THENCX=4 

450 IFCX=0THEN490 

460 IFC(CX)=1THEN490 

470 GSHAPE E2*,CX*75-45, 144 .'SOUND 1, 1000, 

100,0,0,0,3:C=C-1 

480 GSHAPE B2*,CX*75-45, 144 

490 C(CX)=l: RETURN 

500 REM EXPLODE BOMB 

510 S0UND2, 20000, 10, 1,10000, 1000 

520 F0RW=1T07 

530 IFABSt (RSPP0S<W,0)+5)-RSPP0S(8,0) ) >4 

THEN570 

MORE-* 
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Alteration — Increase the points scored for de- 
stroying a missile by increasing the value of 
125 in line 560. 



Programming Note — Make the graphic char- 
acter in line 690 by typing SHJJhT-Z two times. 



540 
570 
550 
560 
570 
580 
590 



IFABS (RSPPOS ( W, 1 ) ^RSPPOS <8, 1 ) ) >4THEN 



C0L0R4, 2: MOVSPRW, INT (RND ( 1 )*350) , 

S0UND1,2000,50,0,0,0,3:SC=SC+125:W=7 

NEXT: C0L0R4, 1 : RETURN 

REM INTRO 

PRINT" {CLR}"TAB< 13) \ "CRVONJMISSILE D 
EFENSE": PRINT" {C/DN>Y0U MUST PREVENT THE 

CITIES FROM BEING" 
600 PRINT"DESTROYED. n : PRINT" {C/DN>M0VE Y 
OUR LASER SITE WITH JOYSTICK #2" 
610 PR I NT "AND PRESS THE FIRE BUTTON SHOO 
T MISSILE." 

620 PRINT" {C/DNKC/DN1DIFFICULTY LEVEL ( 
1-5)?"! 
630 GETKE YQ* : I FQ*< " 1 " ORQ* > " 5 " THEN630 

PRINTS*: NM=INT ( VAL <Q$) *1 . 45) 

PRINT" {C/DNKC/DN>HIT ANY KEY TO STA 



GETKEYQ*: PRINT" <CLR>" 

REM DRAW INTERCEPTOR 

COLOR 0,4: COLOR 4, 1: COLORS, 7: GRAPHIC 



640 
650 
RT" 
660 
670 
680 

1,1 

690 SCNCLR:CHARl,0,0,"O" 

700 SSHAPEA$,0,0,23,21 

710 F0RX=1T07:SPRSAV A*, X: SPRITE X,1,3:M 

OVSPR X, INT (RND <1>*350),0: NEXT 

720 SCNCLR 

730 CHAR1,0,0,"+" 

740 SSHAPE A*,0,0,23,2l:SPRSAV A*, 8 
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Missile Defense 



Programming Note — Make the graphic char- 
acter in line 770 by typing SHIFT-B. 

Programming Note — Make the graphic char- 
acter in line 780 by typing COMMODORE-K. 

Programming Note — Make the first graphic 
character in line 790 by typing 
COMMODORE-U. Make the second by typing 
COMMODORE-T. 



750 SPRITES, l,l:M0VSPR8, 160,80 

760 SCNCLR:SSHAPE B2*,0,0,33,33:C0L0Ri,l 

770 CHAR1,0,1, B I" 

780 CHAR1,1,2," " , 1:CHAR1,3,2, "I " 

790 CHAR1,0,3, B_ - ",i 

800 SSHAPE CT*,0,0,33,31 

810 SCNCLR:C0L0R1,12 

820 CIRCLE1, 16,8, 16, 7:PAINT1, 16,8 

330 F0RX=0TQ10:DRAW1,11+X,5 TO <3*X>+2,3 

2: NEXT 

340 SSHAPE E2*, 0,0, 33, 31 

850 SCNCLR:C0L0R1,8 

860 C0L0R1 , 6: B0X1 , 0, 176, 319, 199, 0, 1 

870 RETURN 




Wall Bangers 

Wall Bangers 

It's you against the computer as you both try to trap each other by building electrified walls. If you run into 
the computer's wall or the screen border, you get electrocuted, and vice-versa. 

Useajoysticktomoveup, down, leftorright. The cursor keys will work too, but the game as written is really 
too fast for them. 

This game features five levels of difficulty. This way, you can easily adapt the game to any skill level. Good 
luck! 



Alteration — Change the second number in the 
COLOR statements of line 20 to change the 
color of the background (COLOR 0) and the 
border (COLOR 4). Use values from 1 to 16. 

Alteration — You can easily add music to the 
game by adding music from another game in 
the book. For example, copy lines 60-120 from 
Hangman and renumber and insert them as 
lines 21-27 to play The Streets of Laredo each 
time you start Wall Bangers. 



10 REM WALL BANGERS 

20 C0LOR0,l:COL0R4,7 

30 PRINT" {CLRXWHT>YOU (O) WILL TRY TO B 

UILD AN ELECTRIFIED" :PRINT"WALL AROUND M 

E <*>. I WILL TRY TO DO" 

40 PRINT"THE SAME TO YOU. " :PRINT"{C/DN}Y 

OU CANNOT CROSS A WALL WITHOUT GETTING 2 

APPED. " 

50 PRINT" fC/DN} JOYSTICK #2 OR CURSOR KEY 

S (J/K)? 

60 GETKE Y V* : I F V*< > " J " ANDV*< > » K " THEN60 : EL 

SEV=ASC(V*)-74 

70 PRINT" {C/DN)H0W FAST ARE YOU (1-5)?" 

SO GETKE YQ* : I FQ*< " 1 " ORQ* > " 5 " THEN80 : ELSED 

E=<5-VAL(Q*))*30+i 

90 D(0)=-40:D(l)=-l:D(2)=l:D(3)=40 

100 PRINT" <CLR}":F0RX=1024T01063:PGKEX,i 

60.-P0KEX+960, 160: NEXT 

110 F0RX= 1 064T0 1 944STEP40 : POKEX ,160: POKE 

X+39, 160: NEXT 

120 P=1924:D=-40:C=1124:DC=3:K*="<C/UPM 

C/RTXC/DNXC/LF}" 

130 IFVTHEN150 

140 ON J0Y(2)+1 G0T0200, 160,200, 170,200, 

180,200,190,200 

150 GETQ*:0N INSTR <K*,Q$, 1 > +1 G0T0200, 16 

0,170*180,190 

160 D=-40:G0T0200 

D=l:G0T0200 

D=40:G0T0200 

D=-l:G0T0200 

S0UND1 , 3000, 1 , 0, 3000, 1 , 3 

I FPEEK < P+D X >32THEN340 



170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
X=3 
270 



P=P+D:P0KEP,87 

IFRND ( 1 ) > . 95THENDC=RND < 1 ) *4 

I FPEEK ( C +D ( DC ) ) =32THEN3 1 

IFRND(1)>.5THEN280 

F0RX=0T03: IFPEEK(C+D(X) )=32THENDC=X: 

NEXT:G0T0300 
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Wall Bangers 



^ 




' •'.•■ -U- V- • ". • • •■.lV: • V^T* 
•' •• '• *lr..* •••'.'■•'.'. •11 * : '%S • • ' 



280 f0rx=3t00step-1 : ifpeek (c+d (x) ) =32the 
ndc=x:x=o 

290 NEXT 

300 IFPEEK (C+D (DC) ) O32THEN330 

310 C=C+D(DC):P0KEC,42 

320 F0RX=1T0DE:NEXT:G0T0130 

330 C0L0R4,6:M*="**Y0U GOT ME**" :G0T0350 

340 C0L0R4,3:M*="Y0U GOT ZAPPED" 

350 PRINT" <HOME> "TAB (13) jM*:SLEEP4 

360 PRINT" {CLRKC/DN) "TAB ( 13) ;M*:C0L0R4, 

7 

370 PRINT" {C/DN>PLAY AGAIN (Y/N)? H 

380 GETKEYQ*:IFQ*="Y"THEN20 

390 IFQ*O"N"THEN380 
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Rear Gunner 



Take your place in the rear gunner's seat of an intergalactic starfighter and take on incoming rounds of 
alien educators. They shoot letters or words at you faster than a speeding asteroid. Score points by typing in the 
same letters or words in time to block the aliens. 

You have the choice of facing single letters or whole words and a choice of five levels of difficulty . When you 
master this game, you will have also mastered the keyboard. 



Alteration — To practice typing BASIC 7.0 
words, substitute the keywords from your 
Commodore 128 manual into the vocabulary. 



10 REM REAR GUNNER 
20 DIMW*(46),L$(46) 
30 C0L0R4,7:C0L0R0,l:C0L0Rl,2 
40 PRINT" {CLR> YOU ARE ABOUT TO TAKE YOUR 
PLACE IN": PRINT "THE TAILGUNNER POSITION 

II 

■ 

50 PRINT"SHOOT DOWN THE LETTERS FOR POIN 

TS BY" 

60 PR I NT "TYPING THEM ON THE KEYBOARD." 

70 PRINT" {C/DN}YOU WILL HAVE ONLY A SHOR 

T TIME TO TYPE" 

80 PRINT"EACH ONE." 

90 PRINT" {C/DN>YOU MAY SHOOT SINGLE <RVO 

N>L{RVOF>ETTERS OR" 

100 PRINT"ENTIRE {RVON>W{RVOF>ORDS, WHIC 

H DO YOU WANT (L/W)?" 
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Rear Gunner 



Alteration — For a faster game, change the 
value 410 in line 360 to 405. Don't make this 
value less than 401 , or you will have no time at 
all. 



Programming Note — The blank part of line 
430 is equal to 8 spaces. 



110 GETKEYV*:IFV*<> tt L"ANDV*<>"W"THEN110 
120 PRINT" CC/DN1AND HOW FAST ARE YOU (1- 
5)? H 

130 6ETKEYQ*:IFQ*<"1 M AND(3*> ,, 5"THEN130 
140 SF=VAL(Q$) 

150 PRINT" <C/DN>OKAY, JUST TYPE WHATEVER 
YOU SEE AS":PRINT"FAST AS YOU can«":sle 
EP2 

1 60 F0RX= 1 T046 : RE AD W* ( X ) : NEXT 
170 F0RX=lT026:L*<X>=CHR*(X+64> :NEXT 
180 F0RX=0T09:L*<X+27)=CHR*(X+48> :NEXT 
190 GRAPHIC1,1 

200 FOR I = 1 T050 : X=RND ( 1 ) *320 : Y=RND ( 1 ) *200 
:DRAW1,X,Y:NEXT 

210 C0L0R1 ,11: F0RI=1T020: X=RND ( 1 ) *320: Y= 
RND ( 1 ) *200: DRAW1 , X, Y: NEXT 
220 C0L0R1 , 7: F0RI=1T020: X=RND ( 1 ) *320: Y=R 

nd(1)*200:drawi,x,y:next 

230 C0L0R1,2:B0X1,0,0,319,199 

240 B0X1, 100,90,220, 110 

250 DRAW1,0,0 TO 100,90 

260 DRAW1, 0,199 TO 100,110 

270 DRAW1, 319,0 TO 220,90 

280 DRAW1,319,199 TO 220,110 

290 REM START LOOP 

300 F0RC=1T025 

310 C0L0R1,5:CHAR1, 15,0, "SCORE =»+STR*(S 

C),l 

320 R=RND( l)*46+i 

330 IFV*="W"THENS*=W*(R):ELSES*=L*(R) 

340 TB=20-LEN(S*)/2 

350 CHAR1,TB,12,S$:P0KE(208),0 

360 TL=LEN(S*>*<410-SP*80):L=0:T=TI 

370 DO UNTIL (LEN(S*)=LEN<R*> OR (TI-T) >TL) 

380 GETQ*: IFQ$< "0"0RQ*>»2"THEN410 

390 SOUND 1,5000,1 

400 R$=R$+<3$: CHAR1 , TB+L, 22, Q*: L=L+1 

410 LOOP 

420 IFR*=S*THENSC=SC+125 

430 R*="":CHAR1, 15,22," " 

440 F0RX=14T026:CHAR1,X,12," ":NEXTX,C 

450 GRAPHIC0,l:CHARi,10,10,"***GAME OVER 

**#" 

460 PRINT." PRINT" CC/DNHC/DN}FINAL SCORE= 

"SC 

470 IFSC<=1000THENPRINT"<C/DN>MAYBE YOU 

NEED MORE PRACTICE. " :G0T0510 

480 IFSC<=2000THENPRINT"{C/DN>N0T BAD... 

KEEP TRYING. ":G0T0510 
490 IFSC<=2625THENPRINT"{C/DN}G00D JOB! 
CONSIDERED BEING A SECRETARY?" :G0T0510 

MORE-» 
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Rear Gunner 



Alteration — You can change the game's 
vocabulary in lines 520-600. But be sure to 
keep the same number of words, 46 total. 



500 PRINT" {C/DN> INCREDIBLE! YOU SHOULD T 

RY A FASTER SPEED." 

510 PRINT" {C/DN>TYPE CRUN3 TO RESTART.": 

END 

520 DATA THE, OUR, RUN, SEE, HOP, AIM 

530 DATA TUG, WIN, FLY, ZOO, BOX 

540 DATA HAD, SHE, HER, HUG, AIR 

550 DATA DIG, DEER, IDEA, HIRE, SIDE 

560 DATA RARE, FEAR, FLAG, GIFT, LIKE 

570 DATA WORK, HAVE, GIVE, LOVE, HOPE 

580 DATA QUICK, RIGHT, ABOUT, THINK, WRITE 

590 DATA SOUND, SPORT, PLANE, CHEER, STORE 

600 DATA THROUGH, RABBIT, HOLIDAY, DOLLAR, S 

ECOND 
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Le Mans 



Get your helmet and racing gloves ready! You are about to negotiate the challenging track at Le Mans. In 
this computer simulation, you use a joystick or < and > keys (unshifted) to steer. Avoid other cars, debris and 
the guardrails. The better you are, the tougher the track becomes. The program lets you choose the color and 
number of your car. 



Programming Tip — Variable SC$ in line 40 
scrolls the screen downward. CHR$(27) + 
" I " is the escape sequence that inserts one 
blank line. 

Alteration — For a more difficult game, start 
with a narrower road by changing the value of 
RW in line SO to 9. 

Alteration — Increase the debris in the road by 
increasing variables C and D in line 60. But 
don't increase them by much or the track is 
impossible to drive. 

Alteration — To make the road wind more dra- 
matically, increase the value of A and decrease 
the value of B in line 60 by exactly the same 
amount. The values must be less than 1.0 and 
greater than 0. 



10 REM LE MANS 

20 C0L0R4,6:C0L0R0,16 

30 C0LLISI0N2,410 

40 SC*=»£H0MEKC/DN>"+CHR*<27)+"I":SC=0: 

SP=0:L2=0 

50 N=l : LL=2: R=16: RW=i i : LL=3: UL=26: KS=212 

60 rt=44:lt=47:a=.4:b=.6:c=.05:d=.05 

70 PRINT" {CLR>"TAB ( 10) "{REDXRVON>LE MAN 

S ROAD RALLY ! ! ! ■ 

30 PRINT" {C/DNHC/DN>YOU ARE ABOUT TO RU 

N A RACE AT LE MANS" 

90 PRINT »{C/DN> STEER YOUR CAR WITH THE C 

OMMA AND" 

MORE-* 
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Programming Note — Make the graphic char- 
acter in line 340 by typing COMMODORE- + . 

Programming Note — Make the graphic char- 
acter in line 350 by typing SHIFT-Q. 



100 PRINT"PERIOD KEYS— THINK OF THEM AS 
< AND >." 

110 PRINT"<C/DN}WHAT'S YOUR COLOR?" :PRIN 
T"l) BLACK": PR I NT "2) RED" :PRINT"3) GREEN 

n 

120 PRINT"4) BLUE":PRINT"5) YELLOW" 

130 GETKEYQ*:lFQ*<"i"0RQ*>"5"THEN130:ELS 

E PC=VAL(Q*) 

1 40 I FPC=2THENPC=3 : G0T01 80 

150 IFPC=3THENPC=6:G0T0180 

160 IFPC=4THENPC=7:GQT0180 

170 IFPC=5THENPC=8:G0T0180 

180 PRINT"<C/DN>WHAT'S YOUR NUMBER (0-9) 

?" 

190 GETKE YQ* : I FQ*< " " ORQ* > " 9 ■ THEN 1 30 : ELS 

E PN=VAL(Q*) 

200 PRINT" £C/DN> KEEP BETWEEN THE GUARDRA 

ILS AND WATCH" 

210 PRINT"FOR DEBRIS IN THE ROAD. THIS I 

S A TRICKY" 

220 PRINT"ROAD. . . IT GETS NARROWER!" 

230 PRINT" {C/DN>HIT ANY KEY TO START ":6E 

TKEYQ* 

240 G0SUB530 

250 F0RY=1T023:CHAR1,16,Y,"{BLK> ",l:CHA 

R1,28,Y," ",1:NEXT 

260 REM START LOOP 

270 S0UND1 , 0, 0: S0UND1 , SP+100, 200, 2, SP+80 

,5,3 

280 L=INT(SC/100):K=RND(1) 

290 IFK<ATHENIFR>LLTHENR=R-1 

300 IFK>BTHENIFR<ULTHENR=R+1 

310 IFL>L2THENL2=L: IFRW>4THENRW=RW-l:SP= 

SP+100 

320 CHAR1,0,0,"{RV0N}<PURP}LE MANS>>>{RV 

0F> SCORE: "+STR* (SO +" 

330 PRINTSC*:CHAR1,R,1, M <BLK> ",1:CHAR1, 

R+RW 1 " " 1 

340 IFK<CTHEN CHAR1, INT<RND<1)*(RW-1) +R+ 

1 ) , 1 , "W 

350 IFK<DTHEN CHAR1, INT(RNDU)*(RW-1> +R+ 

1),1,"«" 

360 P=PEEK(KS):IFP=LT THEN M0VSPR1 , -8, +0 

370 IFP=RT THEN M0VSPR1, +8, +0 

380 sc=sc+i: 

390 G0T0270 

400 REM CRASH 

410 C0L0R4, 3: S0UND2, 4000, 300, 0,4000, 0,3 

420 F0RI=15T00STEP- . 01 : VOLI : NEXT: V0L15: S 

PRITE1,0 

430 PRINT" <CLRHBLK>SCORE: "STR*(SC> "{C/D 

N>" 
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LeMans 

440 IFSOHSTHENHS=SC 

450 IFSC<100THENPRINT H I THINK YOU FORGOT 

TO FUEL UP. H :G0T0500 
460 IFSC<300THENPRINT"MUST HAVE HAD A BL 
OW 0UT.":60T0500 

470 IFSC<500THENPRINT B I SEE YOU HAVE DON 
E THIS BEFORE. tt :G0T0500 

4S0 IFSC<700THENPRINT"e00D JOB! INDIANAP 
OLIS HERE YOU COME. ":G0T0500 
490 PRINT-GREAT PERFORMANCE!! A.J. FOYT 
MOVE OVER." 

500 PRINT" {C/DN>HIT ANY KEY TO RESTART 
R ESTOP J TO QUIT" 
510 P0KE208,0:GETKEYQ$:RUN 
520 REM DRAW CAR 
530 GRAPHIC 1,1 
540 CIRCLE1, 12, 14,3,4 
550 PAINT1,12,14:DRAW1,16,8 TO 16,15 
560 B0X1, 10,3, 14,8,0,1 
570 B0X1, 8, 4, 16,5,0,1 
580 B0X1,6, 14,8, 17,0,1 
590 B0X1, 16, 14, 18, 17,0,1 
600 CHAR1,1,1,CHR*(PN+48),1 
610 SSHAPEA$,1,1,24,22:SPRSAVA$,1 
620 SCNCLR 

630 SPRITE1, 1, PC :M0VSPR1, 180,220 
640 GRAPHICO,!: RETURN 
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Moon Lander 



After hearing an electronic Star Spangled Banner, you must try to land your ship safely on the moon. 
Control the amount of thrust by pressing the number keys. The higher the thrust, the greater the deceleration and 
fuel use. If you run out of fuel, the engine won't work and the ship crashes. 
To land safely, you must reach zero altitude at a rate between and 5 meters per second. 

10 REM MOON LANDER 

20 SCNCLR 

30 TEMPO 12 

40 PLAY"V104T5U8X0":REM GUITAR 

50 A*= H VI03I*ESC02Q*A03QCG*EH*A04. IC03S* 

BQ*AQCQDH*EI*EI*E" 

60 B*= H V104. QC03I*BQ*AHGIFIFQ*AQ*AQ*EQC0 

2*A" 

70 PLAY A*: PLAY B* 

80 G0SUB490 

90 PRINT" { HOME } {WHT> ALTITUDES CYAN > "INT < 

A)"{C/LF> "STAB (16) "METERS" 

100 PRINT"{WHT>VELOCITY:{CYAN} ,, INT(V)»{C 

/LF> " J TAB < 16) "METERS/SEC" 
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Programming Note — Make the graphic 
characters in line 130 by typing SHIFT-IT, 
SHIFT-H, and SHEFT-J. 

Programming Note — Make die graphic 
characters line 140 by typing SHUT-I, SHIFT- 
K, and SHIFT-G. 



Programming Note — Make the graphic 
characters in lines 220-300 by typing 
COMMODORE- +. 



:<CYAN>"F"{C/LF> 



:{CYAN>"T*100"<C/ 



110 PRINT" {WHT>FUEL 

"i TAB (16) "KG" 

120 PRINT" <WHT>THRUST 

LF> ";TAB(16)"JLS" 

130 IFGN1THENPRINTTAB<17>" 

TTAB(1?)"{GRY3> KLBLU> ^":Q=0:G0T0150 

140 PRINTTAB(17>"{LBLU>> ":PRINTTAB(17) " 

{LBLUV'tGRYS}! ":Q=1 

150 GETT*: IFT*< "0"0RT*>"9"THEN180 

160 T=VAL(T*):Z=VAL<T*) :VOLZ: SOUND 1,3000 

0,60,2,30000,0,3 

170 if(f-tx1thent=0:f=0 

180 dv=v-g+<t*c)/<m+f> 

190 f=f-t:a*a+(v+dv)/2:v=dv 

200 printf*:fori=ito9:printtab<17) h ": 

NEXT 

210 PRINTF*: 0N10-TG0T0220, 230, 240, 250, 26 

0,270,280,290,300,310 

220 PRINTTAB<17)"{WHT>3mi H 

PRINTTAB<17>"{RED>88{WHT>H{RED>3i" 

PR I NTT AB < 1 7 ) " { RED MSBS" 

PRINTTABU7) "{REDMTO" 

PRINTTAB<17)"{YEL0>iS<RED>8{YEL0>8$" 

PR I NTT AB ( 1 7 ) " { YELO >ISWSi" 

PR I NTT AB ( 1 7 ) " { YELO >$$!&" 

PRINTTAB(17) "<YEL0>8i»" 

PRINTTABC17) "{YEL0>flW" 

IFA>5THEN90 

V*ABS < V ) : I F V< 1 0THEN420 

PRINT»<CLR>":V0=15 

F0RI=1T022:PRINTTAB(14) B {WHT>****CRA 
SH****":NEXT 
350 S0UND1, 2000, 1500,2,0,0,3 

DO UNTIL V0<.2 

VOL V0:C0L0R4,3 

COLORO, 3: F0RJ=1T022: NEXT 

COLORO, 8: F0RJ=1T022: NEXT 

V0=V0-.1:L0QP 

C0L0R4,l: COLORO, 1 

PRINTLEFT*(F*,6) "{WHT>» 

IFV<=5THENPRINT "PERFECT LANDING!": GO 
T0460 

440 IFV<=10THENPRINT"HARD LANDING" :G0T04 
60 
450 
"NO 
460 
470 
480 
490 
500 



230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 



360 
370 
380 
390 
400 
410 
420 
430 



PRINT"CRASH LANDING" : IFV>15THENPRINT 

SURVIVORS!" 

INPUT"<C/DNHC/DN>PLAY AGAIN", 'Q* 

I FLEFT* < Q* , 1 ) = " Y " THEN80 

END 

REM INTRODUCTION 

C0L0R4,l: COLORO, 1 

MORE-* 
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Moon Lander 



Programming Note — Make the graphic char- 
acter in line 590 by typing SHIFT-I. 

Programming Note — Make the graphic 
characters in line 600 by typing SHlrT-K, 
SHIFT-G, SHIFT-U, SHIFT-I. 

Programming Note— Make the graphic 
characters in lines 610, 620 and 630 by typing 
SHIFT-£ and SHIFT-*. 



Programming Note — Make the graphic 
characters in lines 680-710 by typing 
COMMODORE-B, COMMODORE-I, 

COMMODORE-U, SHIFT-£, SHIFT-*, 
COMMODORE-C, and COMMODORE-V. 

Alteration — Change the starting values by 
changing the following variables in line 720: A 
is starting altitude; M is mass of spaceship wit- 
hout fuel; F is amount of fuel; G is gravity, 
which affects the rate of fall. The game as 
written uses a G value about what it is on Earth. 
Using the actual moon-gravity value of 1 .62 for 
G slows the game down. 



510 PRINT" <CLR>"TAB ( 15) " (WHT>£RVON}MOON 

LANDER{RVOF> H 

520 PRINT" {C/DNHC/DN>TRY TO LAND YOUR S 

HIP AT ZERO TO" 

530 PRINT"FIVE METERS PER SECOND." 

540 PRINT "<C/DN>PRESS KEYS 0-9 TO SET TH 

RUST." 

550 PRINT"<C/DN>HIT ANY KEY TO START." 

560 GETKEYA* 

570 F*="{HOMEKC/DNKC/DNXC/DN>{C/DN>{C 

/DNMC/DNKC/DNMC/DN}{C/DNXC/DNKC/DN> 

{C/DNMC/DNXC/DN}" 

580 PRINT" <CLR>" 

590 PRINT" <HOMEHC/DN><C/DNKC/DNKC/DN> 

"TAB<17)"<LBLUK ■ 

600 PRINTTABU7) "{LBLUJ-' <GRY3>I {|_RED> ^ 

610 PRINTTAB(14)"{GRY3> <RVON>F ^<RV 

0F>" 

620 PRINTTABU4)" {RVON> ^{RVOF> CRVON} 

{RVOF> {RVON>r " 

630 PRINTTAB(14)" {RVON} 

640 PRINTTAB(14>" {RVONJ {RVOF> <RVON> 

a 

650 PRINTTAB(14>" ^CRVONJ CRVOFJF" 

660 PRINTTAB<14>"{YEL0HRV0N} 

670 PRINTTAB(14)"{RV0N> {WHT>USA<YELO> 
ii 

680 PRINTTAB(13)"<RV0N>%CRV0F} --{RVON> 

{RVOF>-- %" 
690 PRINTTAB(12)"£RV0N>%{RV0F}-- {RVON> 
{GRY1>F ^{RVOFHYELO} --*" 
700 PR I NTT AB ( 11 ) " i RVON >%< RVOF } 

%" 
710 PRINTTAB(10)""{RV0N>-{RV0F> 
{RVON>-{RVOFJ" H 

720 A=20000 : m=8000 : f=2000 : G= l o : v=o : T=o : c 

=20000 
730 RETURN 
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Play the one-armed bandit at the computer casino. The computer calculates payoff based on the amount 
bet — nickels, quarters or dollars based on the various combinations of cherries, lemons and oranges that 
appear. Major jackpots are awarded for three of a kind. 



Alteration — Line 30 sets the colors C(0) to 
C(3) for Sprites 1 to 4. Change the colors by 
changing values. For example, C(0)=7 
changes lemons from yellow to blue. 

Alteration — Lines 40-110 draw the fruit- 
shaped sprites and the BAR. Change these if 
you like. 

Programming Note — Make the graphic 
characters in line 100 by typing 
COMMODORE-P and COMMODORE-Y to 
match the printout here. 



10 REM GAMBLER 

20 C0L0R0,16:C0L0R4,13 

30 C(0)=8:c<i)=ii:c<2)=3:c(3)=5 

40 GRAPHIC2,1:CIRCLE1, 12,7, 11,4 

50 PAINT1,12,7:SSHAPE F*(0) ,1, 1,24,21 

60 SPRSAV F*(0),1:SCNCLR:CIRCLE1,12,7,9, 

6: PAINT1 , 12, 7: SSHAPE F* ( 1 ) , 1 , 1 , 24, 21 

70 SPRSAV F*(1),2:SCNCLR 

80 CIRCLE1,7,5,4,3:PAINT1,7,5:CIRCLE1,13 

,11,4,3:PAINT1,13,12 

90 CIRCLE1,19,6,4,3:PAINT1,19,6:SSHAPE F 

*<2),l,l,24,2l:SPRSAV F*(2) ,3:SCNCLR 

100 CHARl,0,0, n — ":CHARi,0,l, B — — H 

MORE-* 




111 



Gambler 



Alteration — Lines 210 to 340 draw the Ban- 
dit. You may wish to alter the DRAW state- 
ments to customize your own slot machine. For 
example, change the CHAR statement of line 
340 to replace the word BANDIT with your 
lucky word or name. 



110 SSHAPE F*(3),l, 1, 24,21 :SPRSAV F*<3), 

4:SCNCLR 

120 F0RX=1T04: SPRITEX, 0, C (X-l ) : NEXT 

130 F0RX=1T03:KEY2*X-1,CHR*(X+132) :NEXT 

140 KEY7,"":D=20 

150 F0RX=1T014: PRINT: NEXT: PRINTCHR* (27) ■ 

T" 

160 GRAPHIC4, 1 , 15: C0L0R1 , 1 : C0L0R2, 7: COLO 

R3,2 

170 SSHAPE DB*, 115,50, 128,90 

180 80X1, 115,45, 125,50,0, 1:B0X1, 121,45,1 

25,80,0,1 

190 CIRCLE3,123,85,5,5:PAINT3,123,85 

200 SSHAPE D*,115,50,128,90:SCNCLR 

210 B0X1,60, 12, 100,20,0,1 

220 DRAW1,45,30 TO 55,20 TO 104,20 TO 11 

4,30 

230 DRAW1,50,30 TO 60,20 TO 99,20 TO 109 

,30 

240 DRAW3,51,60 TO 51,36 TO 108,36 TO 10 

8,60 TO 51,60 

250 B0X1 , 45, 30, 50, 120, 0, 1 : B0X1 , 109, 30, 1 1 

4,120,0,1 

260 B0X1, 114, 120,45, 114,0,1 

270 PAINT1, 50, 26: PAINT1, 109,26 

280 F0RX=0T02: B0X3, 54+18#X, 40, 70+18*X, 55 

:NEXT 

290 PAINT3, 52, 37: B0X1 , 52, 38, 108, 57 

300 B0X2,51,61,108,113: F0RX=0T024STEP2 

310 CIRCLE2,80,87,X+2,X,0,0,0,2:NEXT:PAI 

NT2,52,62 

320 B0X1 , 121 , 15, 125, 50, 0, 1 : B0X1 , 1 15, 45, 1 

25,50,0,1 

330 CIRCLE3, 123, 10,5,5:PAINT3, 123, 10 

340 CHAR2,15,3," *BANDIT* ",1 

350 SSHAPEU*, 115,5, 128,50 

360 PRINT" {CLRKH0MEMH0ME}":F0RX=1T015: 

PRINT: NEXT 

370 PRINTTAB(2)"{RV0NHGRY1>F-1<RV0F} NI 

CKEL"TAB(14) »{RV0N>F-3{RV0F> QUARTER»TAB 

<27)"{RV0N}F-5<RV0F} DOLLAR" 



JACKPOT! "TAB (2 



380 PRINT"<C/DN}3 BAR> 

0)"3 ORANGE > BET X 25" 

390 PRINT"3 LEMON> BET X 10"TAB(20) "3 C 

HERRY> BET X 5" 

400 PRINT"2 CHERRY> BET X 2"TAB<20)"1 CH 

ERRY> BET X 1 H 

410 PRINTCHR* (27) "T H : PRINT" YOU HAVE *"D 

420 GETKE YQ* : I FQ*< " { F 1 > " ORQ* > " { F5 } " THEN4 

20 

430 B=0:IFQ*=»{F1}"THENB=.05 
440 IFQ*="{F3} ,, THENB=.25 
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Alteration — Change payoffs by changing the 
values of variable M in lines 510 to S80. Be sure 
to change the PRINT statements in lines 380 to 
400 appropriately. 



Programming Note— The blank part of line 
620 is equal to 10 spaces. 



450 IFQ*="{F5}"THENB=1 

460 IFB=00RB>DTHEN420 

470 GSHAPE DB*, 115,5 

480 GSHAPE D*, 115,50:G0SUB730 

490 GSHAPE DB*, 115,50: GSHAPE U*, 115,5 

500 IFW (0) <>W ( 1 ) 0RW (0) < >W (2) ORW ( 1 ) <>W (2) 

THEN550 

510 IFW<0)=3THENM=100:G0T0600 

1 FW ( ) =2THENM=5 : G0T0640 

IFW (0) =1THENM=25: G0T0640 

IFW<0)=0THENM=10:G0T064Q 

CH=0 : F0RX=0T02: I FW < X > =2THENCH=CH+ 1 

NEXT 

IFCH=2THENM=2: G0T0640 

IFCH=1THENM=1 : G0T0640 

SLEEP1:D=D-B:IFD>0THEN650:ELSE680 



520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 



F0RX=1T05:CHAR3,15,0," JACKPOT! ",1 
FORT* 1T0400: NEXT 
CHAR3,15,0,» » 

f0rt=1 t0400 : nextt , x 

d=d+<m#b-b):print"bandit paid off *» 
b*m:sleep3 

650 print" cclr}{c/dn>y0u have *"d 
660 gshape db$, 115, 50: gshape u*, 115,5 

670 F0RX=5T07 : SPR I TEX , : NEXT : 60T0420 

680 PRINT" {CLRHC/DN>YOU ARE BROKE!" 

690 PRINT"PLAY AGAIN <Y/N)? M 

700 GETKEYQ*: IFQ*="Y"THEND=100:G0T0650:E 

LSE I FQ*<> " N " THEN700 

710 END 

720 REM SPIN BANDIT 

730 F0RX=0T02:W(X)=INT<RND<1>*4) :NEXT 

740 F0RX=0T02 

750 F0RY=1T04:M0VSPR Y, 13S+35*X,9i:NEXTY 

760 MOVSPR 5+X,138+35*X,9l:SPRSAV F*(W(X 

)),5+X 

770 F0RY=1T010: F0R2=1T04: SPRITE2, 1 : F0RT= 

1T030: NEXTT: SPRITEZ, 0: NEXTZ, Y 

780 SPRITE 5+X,l,C(W<X)):NEXTX:RETURN 
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This is your chance to be a guardian, defending the cities of Orion by shooting down invading drones. You 
have three missile silos. Fire your interceptor missiles at the incoming drones by pressing keys 1 , 2 or 3 . Once 
you launch a missile, you can't launch another from that silo until the missile hits a drone or reaches maximum 
altitude. You lose if all of your cities are destroyed. 



Alteration — For a slightly more difficult 
game, change line 30 to 30 DATA 
-6,6,-4,4,-3 

Programming Tip — The numbers in the 
DATA statement of line 30 control the angle of 
descent of the drones. 



10 REM ORION 

20 F0RX=4T0S:READ D(X):NEXT 

30 DATA -2,2,-1,1,-1 

40 60SUB560 

50 C0L0R1,1:F0RX=1T04:GSHAPE CT*,X*75-45 

,144: NEXT 

60 F0RX=1T03:SPRITEX,1:NEXT 

70 C=4:C0LLISI0N1,460 

80 REM START LOOP 

90 F0RX=4T0NM+3:M0VSPRX,+D(X),+4 

100 SX=RSPPOS ( X , ) : S Y=RSPPOS ( X , 1 ) 

110 IFSY>218THENG0SUB340 
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120 IFSX<16 THEN M0VSPRX,335,SY 

130 IFSX>335 THEN MOVSPRX, 16, SY 

140 NEXT 

150 REM CHECK FOR FIRING 

160 GETF* : I FF*< " 1 " ORF* > ■ 3 H THEN 1 80 

170 MOVSPR VAL(F*>,0 #3 

180 F0RX=1T03 

190 IFRSPPOSCX, 1K50THEN: MOVSPRX, #o:mo 

VSPRX,X*80+5,230 

200 NEXT 

210 char1,0,0," score: n +str*< so: char 1,0 

,1,"cities:"+str*(c) 

220 i fc < 1 orsc >5000then240 : else90 

rem game over 

graphico,i:forx=ito8:spritex,o:next 

F0RY=5T018 



230 

240 

250 

260 IFSO5000THEN CHAR1,8, Y, "***# ORION 

IS SAFE ****":G0T0280 

270 CHAR1,8,Y,"****0RI0N DESTROYED****" 

280 NEXT 

290 SI_EEP2:CHAR1, 10,20, "FINAL SCORE: "+ST 

R$(SC) 

300 char1, 1,22, "play again <y/n>?" 

310 getkeyq*:ifq*="Y"thenrun:elseifq*<>" 

N»THEN310 
320 END 

REM EXPLODE CITY 

BX=RSPPOS(X,0> 

MOVSPRX, INT (RND ( 1 ) *150+101 ) , 

CX=0: IFBX>38THENIFBX<85THENCX=1 

IFBX>113THENIFBX<160THENCX=2 

IFBX>188THENIFBX<235THENCX=3 

IFBX>263THENIFBX<310THENCX=4 

IFCX=0THEN440 

IFC(CX)=1THEN440 

GSHAPE E2*,CX*75-45, 144: S0UND1, 1000, 
100,0,0,0,3:C=C-1 
430 GSHAPE B2*,CX*75-45, 144 

C(CX)=l: RETURN 

REM EXPLODE BOMB 

Q1=BUMP ( 1 ) : IFQ1=0THENRETURN 

F0RW=1T08 

IF(QlAND(2t(W-l)))THEN490:ELSE540 

C0L0R4,2 

IFW>3THEN530 

MOVSPRW,0 #0:M0VSPRW,W*80+5,230 

S0UND1 , 2000, 50, 0, 0, 0, 3: SC=SC+125: GOT 



330 
340 
350 
360 
370 
380 
390 
400 
410 
420 



440 
450 
460 
470 
480 
490 
500 
510 
520 



0540 

530 MOVSPRW,INT(RND<1)*350>,0 

540 NEXT:Ql=BUMP(l):C0L0R4,l:RETURN 

550 REM INTRO 

MORE 
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Alteration — Change the color of your missiles 
by change the third number of the SPRITE 
statement in line 680. For example SPRITE 
X,0,7 will make them blue. 

Programming Note — Make the graphic char- 
acter in line 690 by typing SHIFT-Z two times. 

Programming Note- — Make the graphic char- 
acter in line 730 by typing SHIFT-B. 

Programming Note — Make the graphic char- 
acter in line 740 by typing COMMODORE-K. 

Programming Note — Make the first graphic 
character in line 750 by typing 
COMMODORE-U. Make the second by typing 
COMMODORE-T. 



Alteration — You may want to add some 
clouds or a sun to the sky , as in No Free Lunch. 
Add DRAW statements in lines near line 840. 



560 PRINT" {CLR} "TAB < 17) \ " {RVON>ORION" : PR 

INT"{C/DN}DEFEND ORION WITH ANTI-MISSILE 
ii 

570 PRINT" INTERCEPTORS.": PRINT" {C/DN>PRE 

SS KEYS 1-3 TO LAUNCH YOUR MISSILES." 

580 PRINT" {C/DN>CC/DN>DIFFICULTY LEVEL ( 

1-5)?"; 

590 OETKE YQ* : I F<3*< H 1 " ORQ* > " 5 " THEN590 

600 PRINTS*: NM=VAL<Q*) 

610 PRINT" {C/DNHC/DN>HIT ANY KEY TO STA 

RT" 

620 GETKEYQ*:PRINT"{CLR>" 

630 REM DRAW INTERCEPTOR 

640 COLOR 0,16: COLOR 4, 1: C0L0R5, 7: GRAPH I 

Cl,l 

650 DRAW 1,24,14 TO 22,23 TO 22,26 TO 26 

,26 TO 26,23 TO 24,14 

660 PAINT 1,24,23 

670 SSHAPE A*, 11, 10,34,31 

680 F0RX=1T03:SPRSAV A*,X:SPRITEX,0,3:M0 

VSPRX,X*80+5, 230: NEXT 

690 SCNCLR:CHAR1,0, ©,"♦♦" 

700 SSHAPEA*,0,0,23,21 

710 F0RX=4T0S:SPRSAV A*,X:SPRITE X,1,7:M 

OVSPR X, INT <RND<1)*350),0: NEXT 

720 SCNCLR: SSHAPE B2*, 0,0, 33, 33: COLOR 1, 1 

730 CHAR1,0,1," I " 

740 CHAR1,1,2," ", 1:CHAR1,3,2, "■ B 

750 CHAR1,0,3, ,,_ " ",1 

760 SSHAPE CT*, 0,0, 33, 31 

770 SCNCLR .-COLOR 1,12 

780 CIRCLE1,16,8,16,7:PAINT1,16,8 

790 F0RX=0T010:DRAW1,11+X,5 TO <3*X)+2,3 

2: NEXT 

800 SSHAPE E2$,0,0,33,31 

810 SCNCLR .'C0L0R1, 8 

820 C0L0R1,8:F0RX»0T02 

830 B0X1,0+80*X, 1 76, 69+80*X, 199,0,1: NEXT 

840 B0X1,240, 176,319, 199^0,1 

850 RETURN 
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You're applying for a job at a computer-game factory, but get lost in a room of berserk robots. Escaping 
through one of three exits is your only hope of survival. 

This is made difficult because the robots chase you. Though berserk, they aren't stupid. They have a 
computer-aided ability to track your every move. However, you can use the barriers in the room to block a 
robot's progress. Good luck! Bach's Bouree has been adapted for your listening pleasure prior to the game. 



Alteration — To change musical instruments, 
change the value of the variable following the 
letter T in lines 40 and SO to a number from 1 to 
9. For example, use 3 for an electric drum: 40 
PLAY "V1O4T3U8X0": REM VOICE 1 = 
ELEC DRUM 



10 REM BERSERKOTRON 

20 SCNCLR 

30 TEMPO 12: REM BOUREE BY BACH 

40 PLAY "V104T4U8X0":REM VOICE 1 =FLUTE 

50 PLAY H V204T6USX0»:REM VOICE 2=HARPSIC 

HORD 

60 A*="V104IEV202IGV104I#FV202IttF":REM 

PENINS NOTES 

70 B*= "VI 04Q6 V202QEQ A V 1041 #FI EQ#D V202QBQ 

AV104IEI#F":REM 1ST MEAS. 

80 C*= " V 1 03QB V202QGQ#F V 1 04 I #C I #DQEQ#F V20 

2QEQ#EV104IDIC":REM 2ND MEAS. 

MORE-* 
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Alteration — Change the second number in the 
COLOR statements of line 140 to change the 
color of the background (COLOR 0) and the 
border (COLOR 4). Use values from 1 to 16. 



90 D*="V103QBV202QGQAV103IAIGQ#FV202QBQA 
V103IGIA":REM 3RD MEAS. 

100 E*="V202QGV103IBIAV202QBViQ3IGI8F<3EV 
202IEI#FICV104IEI#FV202I#F":REM 4TH MEAS 

110 F$= H V103QBV202QGQCV103IAIB.Q#FV203QD 

QDV103IGHGV202HG":REM LAST MEAS. 

120 PLAY A*: PLAY B*: PLAY C*: PLAY D*:PL 

AY E* 

130 PLAY B*: PLAY C*: PLAYF* 

140 C0L0R4,7:C0L0R0,16 

150 PRINT" <CLR> <GRY1 } "TAB ( 14) J " {RV0N>BER 

SERKOTRON" 

160 PRINT" <C/DNKC/DN>0N THE WAY TO INTE 

RVIEW FOR A JOB AS A" 

170 PR I NT "COMPUTER GAME TESTER YOU MADE 

A WRONG": PR I NT "TURN..." 

180 PRINT" <C/DN>Y0U FIND YOURSELF IN THE 

ROBOT ROOM AND" : PR I NT "YOU ARE NOT WELCO 
ME!" 

190 PRINT" <C/DN>YOU MAY USE JOYSTICK #2 
OR THE CURSOR" 

200 PRINT"KEYS TO RUN THROUGH THE SIDE 
R BOTTOM" 

210 PRINT"DOORS, WHICH WOULD YOU LIKE (J 
/K>? "J 

220 GETKEYQ*: IFQ*< " J " ORQ* > " K " THEN220 : ELS 
E V= ASC ( Q* ) -74 : PR I NTQ* 

230 PRINT" <C/DN>PLEASE ENTER YOUR FIRST 
INITIAL" 

240 GETKEYI*:IFI*<"A"0RI*>"2"THEN240:ELS 
EI = ASC ( 1$) ~64 

250 PRINT" <CLRXC/DN>YOU MUST AVOID THE 
ROBOTS <{RVON}R{RVOF}>." 

260 PRINT" <C/DN>YOUR ONE ADVANTAGE IS TH 
AT YOU CAN GO" 

270 PRINT "THROUGH THE BLACK CIRCLES WHIL 
E THE" 
280 PRINT"ROBOTS CANNOT. BUT THE CIRCLES 

VANISH" 
290- PRINT"AS YOU PASS THROUGH, SO BE CAR 
EFUL." 

300 print"{c/dn>hit any key to start." 

310 getkeyq*: print "cgryikclr}" 

320 c=1106:n1 = 19:n2=36:k*="{c/uphc/rtk 

c/dn}{C/lf>»:sp=32:rb=146:dv=40:dh=i:bl= 

160:PD=46 

330 FORX=1065T01102:POKEX,160:POKEX+800, 

160: NEXT 

340 F0RX=1105T01825STEP40:P0KEX, 160: POKE 

X+37, 160: NEXT 

350 P0KE1465,46:P0KE1502,46:P0KE1884,46 
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360 F0RX=0T0199: P0KEC+DV*INT <RND ( 1 )*N1 ) + 

<RND(1)*N2),81:NEXT 

370 R(1)=1466:R(2)=1501:R(3)=1844:L=C+18 

380 F0RX= 1 T03 : POKER ( X ) , RB : NEXT : POKEL , I 

390 REM START MOVEMENT 

400 IFVTHEN420 

410 ON J0Y(2>+1 G0T0510,430,510,440,510, 

450,510,460,510 

420 GETS*: ON INSTR(K*,Q*, 1) +1 G0T0510,43 

0,440,450,460 

430 D=-DV:G0T0470 

440 D=DH:G0T0470 

450 D=DV:G0T0470 

460 D=-DH:G0T0470 

470 SOUND1,3000, 1,0,3000, 1,3 

480 IFPEEK<L+D)=BLTHEN510 

490 IFPEEK(L+D)=PDTHEN640 

500 POKEL, SP:L=L+D: POKEL, I 

510 LY=INT((L-C)/DV):LX=L-C-LY*DV 

520 F0RX=1T03:D=0 

530 RY=INTUR(X)-C)/DV):RX=R<X)-C-RY*DV 

540 IFRX< LXTHENIFPEEK ( R < X ) +DH ) < PDTHEND=D 

H:G0T0580 

550 I FRX >LXTHEN I FPEEK ( R < X ) -DH )< PDTHEND= - 

DH:G0T0580 

560 IFRY<LYTHENIFPEEK (R (X) +DV) <PDTHEND=D 

V:G0T0580 

570 IFRY>LYTHENIFPEEK (R (X) -DV) <PDTHEND=- 

DV 

580 ifpeek(r(x)+d)=ithen600 

590 poker(X),sp:r(X)=r<x)+d:poker(X),rb: 

NEXT:G0T0400 

600 REM CAUGHT 

610 C0L0R4, 3: S0UND1 , 20000, 490, 2, 10000, 10 



620 SLEEP8:C0L0R4,7:SLEEP2 

630 PRINT"{CLRHC/DN}<C/DN}"TAB(12) "YOU 

WERE CAUGHT ! " : G0T0660 

640 REM SAFE 

650 C0L0R4,6:SLEEP4:PRINT"CCLR>{C/DNHC/ 

DN> "TAB (14) "YOU MADE IT! " :C0L0R4,7 

660 PRINT"{C/DN}{C/DNJ{C/DN>"TAB(11) "PLA 

Y AGAIN (Y/N) ?" 

670 GETKE YQ* : I FQ*= " Y " THENRUN : ELSE I FQ*< > ■ 

N"THEN670:ELSE END 
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35 Amazing Games/Commodore 64— Mihalik $9.95 

35 Amazing Games/Commodore 128— Mihalik 9.95 

Basic Program Conversion— CSB/Crider 12.95 

Commodore 64 Basic for Beginners— Shipman 12.95 

The Essential Commodore 128 User's Guide— Willis 12.95 
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Quick and Easy WordStar 2000— Crider 14.95 
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HPBooks, Inc., P.O. Box 5367, Dept. GAC-16, Tucson, AZ 85703 

Include $1.95 postage and handling for first book; $1.00 for each 
additional book. Arizona residents add 7% sales tax. Please allow 4-6 
weeks for delivery. Prices subject to change. 
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Have amazing fun with your Commodore 128 computer. With this 
book you create Educational, Board and Arcade games by typing in 
a complete program listing into your computer. Each game is 
written in BASIC 7.0, specifically tor the exciting Commodore 128 
mode. 

Games feature color, sound, music, graphics, instructions, scoring, 
and more for hours of entertainment. While you are having fun, 
you'll learn more about programming in BASIC 7.0. Each game 
features suggestions for programming variations. Change the 
games to do exactly what you want! 
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